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A tutto disco 


Da un po’ di tempo C.C.C. privilegia gli 
utenti del floppy disk perchè... 


dì Alessandro de Si mone 


yVvt'vamo promesso di tener conto 
dei risLiliaii deli 'inchiesta Jc-I N.33. 
Benché non siti sinici più duna. i lei- 
tori piu allenii avranno sicuramente 
notato alcuni cambia nienti in vari 
setto ri della nostra rivi sta. 

Alcune rubriche sono state poten- 
ziare, altre sono siate... sospese, altre 
ancora sono n sorte a nuova vita. 

Pur non potendo rivelare per intero 
i risultali dell'Inchiesta. possiamo as- 
sicurare che abbiamo tenuto in gran 
conio i desideri dei lettori 

Abbiamo, ovviamente, incìnto ad 
accontentare subito le ridi ieste solle- 
citate delle percenuali più alle, men- 
tre per ciò che rìgu a rda leali re ( p u r se 
consistenti) d stianto organizzando: 
possiamo anticipare tiri da ora che i! 
prezzo di copertina sarà ri Locca io a 
partire dal prossimo numero (L4000 
invece di 3500) per consentire l'incre- 
mento di qualità e dì pagine richiesto 
i\ gran voce da! 92%> dei lettori. Colo- 
ro che possiedono un Plus/4 o un 
C/16 avranno una rubrica tutta per 
toro mentre chi possiede un C/128 
troverà di certo il modo di utilizzarlo 
anche in modo diverso dal solito 
C/64. 

Ma chi accontentiamo per primi? 
Quali argomenti affrontare subito/ 
Quale è "il grido di dolore' - pressante 
che abbiamo tratto dai risultati dei- 
fi nubi està? 

Ma è ovvio: i possessori di disk dri- 
ve sono ormai talmente numerosi da 
consentirci di proporre una rubrica 
come “Directory *. E in questo nume- 


ro. oltre a Di recto a N.2. troverete un 

# 

gruppo di programmi ed utility deci- 
samente interessanti per i possessori 
del disk drive. 

I: tu, che sei rimasto nella bassa 


percentuale dei possessori del solo 
registratore, che aspetti a procurarti 
un bel 1541 per spiccare il tanto so- 
spirato "salto di qualità'? 

Natale é vicino... 
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grammera microcompu 
ter di qualunque tipo, dia 
legando con loro in in- 
guaggìo BASIC- Ne capi' 
ra struttura e funziona- 
mento. Fara pratica fin 
dalle prime pagine in mo 
do cosi entusiasmante e 
completo da diventare 
quasi senza accorgerse- 
ne, passo dopo passo, un 
vero esperto, capace di 
sfruttare le infinite possi- 
bilità dei computer sul la- 
voro e in casa sua. 

L L I 5 T, Isolilo Svizierò di Tecni- 
ca . ,r 0 ho qua J caso n <j|ta a g 
Al lèv in lutfEuiopa g-gn inftp 
e narnento £ d: s E a le f ree one 

1 modernissimo Co ter ’PRC; 
,RAMV1AZ-ONr RAS;. <.■ Mi 
CrìOCOMPU T FR , ‘ tiei COmspa T '- 
lenza. de 1 j ’u“ - hig: o st e 
vog itjno essor pi or li a ^franale i 
mèra* gl ose mango cc 'OT.pu- 
ìl v g-pvan «fè"L -'0 giova n tutu 1 
r r ( : 1 p !i :ì o m 3 ’ e so ti p‘-i c i fic 1 1 : ‘ I 
Nd*i 3 CCorrcng “i: •?: }i -studio 

14 dispense 
principali + 
complementari 
del corso 

BASIC COMMODORE 


den 7 Jì, ccr ■ se r a L * 1 >■ 
qua. !iCOi p- e ' ' :0 ' . V'":ì 

i ti rr f*.;j la Le 14 C rr h ' d' u t u Te 
. i. - o* ( - Ai> ■ ' >fo I n 3 r- 
IMessu no di noi. : r -, i > 1 

tura m- F iene 1-- ■ ■ ■ 

□Litor n c.ì^ su lavoro e nei 
‘-:-Tpg opro I : pr'c.jifv i.i’LiCa - 
" i ■ ■ ; i ■ il .- 1 gr.::-r,T -, la come aura? il 
le lev ma re Già oggi la fióhtèsilà 

esptrii LDP iofh?-!a r 

pq r " I settore 


Chiedi to g-jì r . " ore va la 
: ■ '-i.d qs?l m 14 1 ■: f?n-:e Piing pa i 

rf^i Cù r io l.-sr scaverà ^nilan éliti 

«t'Eèi titìii's^iirra Cìclica a io *.iudiOó a 
i ji -.t t -iromozion la r ie 
i — .1 r o prognin^n . dot&M r v> o 

g ■ Si; I orrfVlO'K' 5i? 
compì!! '20 ^ '0 p - Ol'iCijfioni 1;-,- 

vorevoi c oaq amento 

Non perda l‘op portoni la di vive- 
re H suo tempo da prolaooni 
Coni pili a spedisca il ta- 
gliando oggi stesso. 


ISTITUTO SVIZZERO 
Qi TECNICA 


i ISt incigni m distinsi da Qlfr* 7 5 

.nnrrn m firùOi u di olire 35 m Ifjlifl 

Non uhi jif «le un rappres intenta 

p*r vini* « domicilio, poiché astiti 
\ryo L'-*r corniporìfl#njr 0 . rri 0 Miyu* 
gli A.(*i «> - pajso per p*j&o attuar 
sòl* coirei ione dei compili e con*! 
gii veri Hi qualificalo migliaia di 
allievi, oggi t 111 vi m lui li i & a 11 ori 


Se lei vorrà 

* oacl'orggge-a uno- it e pr&i 
■a deha programmazióne 

* sfrutterà al mass-mn toste le 
capacità su lavoro, n e.asrf 

e OC'! CiverE-rr'iinctj 

* ggp ra d< più e meglio oorr 
pule" da ufficio Sìslenrii g 
e ;at>u? azione da' (fcDPl. ca 
celalo ' i elertrgnif . cornane 
automatici programmaó i 
eco. 

* mpieg-r c- , r., suo compu 
iirrr i programmi BASIC di rivi- 
ste e c L.b specal Zvelr 

Lei potrà 

* sviluppale dei prog^amm 
F'^aSiC r; modo nc D-mcJor te 

* capire p^graTmi BASIC 

, non suoi e rise riverì il 

suo Camp.:[er 

* comprendere 'TiL-ra e ■un 
nc-n 1 pel suo eiaharaEarg- & di 
qualunque altro sistema 

* vafulare programmi sten 
da r o f- impiegarli gorretts- 
meme 

» padroneggiarfl priocipali 
caicoiatòr 

* a ve - e una solida Pasd 0 
EDP, ita utilizzare a uvei li 
pfote^yieria'e e personan- 


Sì, r ! ■ idr ■ ■ (. -, - T gratis in prova e smpegrto - r. ■ ma 
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al li Sr imi': p i.;tie e iniarnfa^iOni 'iqceSF- - - ec 0 


efie le insegnan n pf?- cu'riypoi'- 
■Jenro a OTtgram maro i Suo com- 
puter Ccmr T iDdo r t' 

Le nriatatie comprendono . 

gismna’i •• BASIC tu ’ hp 
ci prus'ann..-i?i, 1 urd^a-- 

spltwà'e sppl-cjj om gerreìp- 
,ì i g g ;ìt cr 1 1 itemene u se e' - • 
1 1 r g ■ .ntic.-j 'i\iS-ca g nct^ :r 
^lem: oceraliv - iruuti^yi & prg- 
gi r ur , " r ' 1 i C ]ZiO ri e ■ dati - O'ó 'àfdtfp- 
senta zio ne 'èaiutaz^n^ di n- 
c cjr- ip li ! C r nc-7 ; >r' i e T ot oc rr .i te 
narici 

L'IST le oflre. .-..l-yt/ a lidaì F 
per su palizzata pei r ' r 3o;>r 


Kjr t 


... .m-,». 
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Via S Pietro 49 £1016 LU I NO IVA] 


Telefono 0332 / 53 . 04.69 
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Domande Risposte 

QOWVUDE B’IZbCJlLI.I-' 


Avvertiamo i lettori che initiidono collabo- 
rare di attenersi RIGOROSAMENTE alle 
seguefìft dispai ri r>ni; 

* NON inviare programmi e/o articoli che 
non siano siati espressamente concordati 
con la Redazione, 

* Per risolvere il problema precedente, tele- 
fonare in Redazione (02/84.67.34,8) per 
proporre la culli ah ora rione, 

* lina volta concordato il “tenta", c portato 
a termine II programma e E articolo, inviarli 
su SUPPORTO MAGNETICO: non ab- 
biamo il tempo di digitare nè l'uno né 
l'altro, 

* Per scrivere l'articolo servirsi di un Word 
Processor commercializzato: Easy Script 
C/64, Su perse ri pi C/128, Word Pro 3, 
Wdrdcraft Vie 20, W/P del Plus/4, Magic 
Desk o altri concordati ne) corso delta sud- 
detta telefonata 

* I lavori vengono compensati (a seconda 
della qualità, interesse e rispondenza a 
quanto concordato) da un miniino di Z5000 
ad un massi ino di 70000 lire per ogni pagina 
pubblicata, Esempio: articolo e program- 
ma che occupano 4 pagine delta rivista: 
compenso variabile tra 100000 e 280000 
tire. 

Rispettando le di sposi! ioni eviterete per- 
dite di tempo, di denaro (per spedizioni non 
richieste) e di pazienza. 


Concatenare file sequenziali 

□ Vorrei ulteriori informazioni sull'i- 
struzione “AppentP per quanto ri- 
guarda la concatenazione di file se- 
quenziali tra loro. 

(Carlo Zar deno. Busto Arsì zio) 

* Precisiamo, anzitutto, che la conca- 
tenazione di più file sequenziali si 
può attuare soltanto con i) drive e 
non con il registra tore per motivi di 
Hardware sui quali non ci intra!» 
teniamo. 

Supponiamo di dover registrare su 
disco un file sequenziale di nome 
"Prova" formato da una decina di 
numeri. Il programma può essere il 
seguente: 


100 OPENMJ/’PROVA.S.W'" 

HO FORI sa ITO! 0 
110 PRI\T#JM 
13(1 NEXT C LOSEN 

Se carichi la Directory, dopo che il 
Led del drive si spegne, potrai notare 
la presenza, appunto, del lìlc kl Prova" 
che occupa un solo blocco. 

Volendo leggere il contenuto del fi- 
le appena registralo, potrai servirti 
del prossimo programma: 

100 OPEN£,&t&, M PRO VAfSaR 1 ' 

HO INPUT**, 1 

1 20 1F STTHEN CLOSEfeEND 
130 PRINT1 :GOTOI10 

Il controllo sulla variabile Sì. co- 
me saprai, serve per controlla re se. in 
fase di lettura, si c giunti al termine 
del file. 

Supponiamo, ara, dì voler aggi un- 
gere altri numeri allo stesso file "Pro- 
va Non sarà necessario, come si po- 
trebbe pensare a prima vista, caricare 
in memoria il contenuto d elfi utero 
file, aggiunge re gli altri valori deside- 
rati e. in seguito, scaricare nuova- 
mente su disco il nuovo file. 

Sarà invece sufficiente attizzare il 
seguente programma; 

100 OPENK.M/'PROVàAà" 

HO FORI «lOflTO lift 
120 PRINT*IU 
130 NEXT:CLO££8 

in cui, appunto, il carattere "A" pre- 
sente tra virgolette, sta a significare 
"Append’\ Esaminando ora la direc- 
tory ti accorgerai che il file di prima sì 
è ingrossato (occupando 2 blocchil e, 
leggendolo di nuovo col programma 
N.2, noterai che é formato da venti 
valori: da I a 10 del primo program- 
ma e da 1 00 a 1 10 del terzo. 

In questo modo è possibile riempi- 
re un intero dischetto con un solo file 
sequenziale formalo da concatena- 
zioni attuate in più fasi successive. 


Basic in Easy Script 

□ lavorando con il programma di 
Word Processor “Easy Script" mi ca- 
pita di dover inserire nel testo pro- 
grammi Basic da commentare. Finora 
ho sempre fallo ricorso ad un ‘■'Colla- 
ge 1 ' e a successive fotocopie per mi- 
gliorare l'aspetto finale. ^ 

C'è un sistema per caricare da Easy 
Script un listato Basic? 

* Cerio; supponiamo che il program- 
ma Basic ubbia il nome l ' Prova" Pri- 
ma di usare Easy Script dovrai segui- 
re una procedura semplicissima; 

1/ Caricare il programma Prova" 

2/ Digitare, su di una stessa riga, i se- 
guenti comandi in modo diretto: 
OPEN 8A8. “NOME,S,W": 

CMD 8: LIST 

A questo punto il drive ronza e, do- 
po un tempo dipendente dalla lun- 
ghezza del programma, ricompare il 
cursore lampeggia lite, 

3/ Digita, quindi: 

PRINT *$:CLQSE8 

4/ Carica Easy Script e. una volta atti- 
vo, esegui Load "Nome " il program- 
ma, che è stato trasformato in file se- 
quenziale, viene letto senza alcun 
problema. In coda troverai sempre li- 
na strana parola (jreadv) che potrai 
cancellare con la funzione Deleie 
(Fl + 4t D> 

Da notare che il programma viene 
caricato in forma minuscolo maiu- 
scolo (basta però usare FIt 'LT). 

I caratteri speciali (Crsr. Home. Co- 
lori eccetera) che, di norma, nei listati 
Basic sono visualizzati con lettere 
maiuscole in Reverse- vengono però 
riportati tal quali ma in modo' nor- 
male" Dovrai, pertanto, modificare 
il programma Basic ricorrendo ai ca- 
ratteri CHRS 
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SU A/ /CE/? / 


Proteggere il vostro software da qualsiasi duplicazione, con 
BUNKER ! e' possibile. 

Con semplici operazioni (alla portata anche dei non esperti), 
potrete finalmente proteggere i vostri programmi, senza timore 
che vengano copiati ! 

Non esistono copiatori in commercio capaci di duplicare i 
programmi protetti con BUNKER i, le cartucce sprotettici (Isepic — 
Hacker - Freeze Frame etcc..) si bloccano miseramente, ed il 
vostro programma e T salvo. 

Una garanzia per i Sigg. Negozianti i quali potranno finalmente 
proteggere i programmi che vendono, senza dover correre il 
rischio di venderne uno. ...e basta 1 

Per mettere definitivamente un lucchetto al vostro software, 
ordinate oggi stesso una copia del BUNKER I a sole 
Lire 80.000 (sconti previsti per Negozianti, Clubs e Gruppi 
d’acquisto). 

ATTENZIONE ! diffidate dalle imitazioni, siamo a 

conoscenza che vengono vendute 
copie del BUNKER !, spacciate per originali. 

Dette copie non sono perfettamente funzionanti, 
non contengono i 18 nuovi comandi del BUNKER I originale 
e non proteggono integralmente i programmi Milli II 
Per risparmiare poche lire non correte il rischio di farvi 
rifilare un "bidone", rivolgetevi a chi ha CREATO il programma 
e Ve lo vende con Garanzia Totale. 


7 4)AtWSO*7r 

P O. BOX N. 259 51100 PISTOIA 
TEL (0573) 22046 


Vendita per corrispondenza hardware e software per C-64 
C- 128, C - 16 , ATARI 520 ST ed MSX. 

Abbonamenti alle novità’ soft, importate settimanalmente dai 
Paesi di produzione. 

I J 



Per cancellane lo schermo, ad e- 
sempìo* non ricorrere al cuoricino tra 
virgolette, ma utilizza PRINT 
CHRS047). 


Bug in Tot/13 

Per un errore in fase di composizione, 
l’ultima riga basic (l;END) di pag.27 
del numero 35 di C.C.C. (che sembra 
relativa al programma Dispay per 
Tot/13) deve essere invece inserita al 
termine della riga 770 del programma 
Toi/L3; questa, quindi, diventa: 

770 PRINT* l.PEEK(J): NEXT: 
CLOSE1: END 

Ci scusiamo con i lettori perf involon- 
lario inconveniente. 


La rivista “Commodore” 

□ Non riesco più a trovare in edicola la 
vostra rivista “Commodore*** Ne avete 
cessato la publicazione? 

(Andrea Piemonte, Avellino) 

* Da diverso tempo le tre riviste che 
prima pubblicavamo separatamente 
(Commodore, MSX Sinclair Com- 
puter) sono ancora in edicola, ma 
"fuse” insieme nella rivista "Personal 
Computer" della Systems editoriale. 

La testata "Commodore" però, la 
rivedrai presto in edicola dal mo* 
mento che abbiamo deciso di utiliz- 
zarla per proporre argomenti mono* 
grafici di grande interesse. Occhio al- 
l'edicola, dunque* per non farti sfug- 
gire il prossimo fascicolo specialissi- 
mo sul Linguaggio Macchina appli- 
cato alla grafica del C/64! 


La variabile ST 

□ A che cosa serve la variabile riserva- 
ta ST? 

(Andrea Marchioro, Vicenza) 

• Serve a controllare la corre tteza del- 

le operazioni di lettura dei file. Sup- 

poniamo di creare un file mediante il 
seguente programma, 


IO© open 133 "PROVA*S,W” 

T 1 0 FORl = 1TOIO 
120 PRINT* 1, "PIPPO** 

130 NCXTiCLOSEl 

..e supponiamo che, in seguito, di- 
mentichiamo il contenuto del file. 
Per leggerlo possiamo comunque uti- 
lizzare quest'altro listato: 

100 OPEN 1,8,8 "PROVAR, R” 

110 GET#I,X$:PR1NTXS; 

120 COTONO 

Poiché, infatti, non sappiamo nè il 
numero dei caratteri nè la loro natu- 
ra, non possiamo ricorrere ad un ci- 
clo Fon,.Next. Se fai girare il pro- 
gramma, però, ti accorgi che* dopo la 
Tenuta dei dieci valori, compaiono 
segni "strani" sul video e il drive gira 
j vuoto senza fermarsi; non è presen- 
te, infatti* un controllo sulla fine del 
file. Per ovviare all'inconveniente è 
sufficiente modificare il listato di pri- 
ma come segue; 

10© OPEN 1*83. "PROVACI!” 

110 PRINTST; 

1 15 IF ST>© THÉN CIMOSE Ì:END 
12© GET*l 1 XS:PRINTXSi 
130 TFXS=CHRS<I3)THEN110 
140 GOTO! 20 

In conclusione* la variabile ST, let- 
ta dopo ogni operazione dì lettura, 
deve essere sempre eguale a zero. Se, 
invece, assume altri valori vuol dire 
che si è verificato uno o piò "inconve- 
nienti", Ecco, di seguito, il codice di 
alcuni valori di ST ed ìJ loro signi- 
ficato: 

L 2 Errori di tempo ri zzaz ione 
4 Blocco corto 
8 Blocco lungo 
32 Checksum Errar 
64 Fine del File 
-128 Fine del nastra 


Vivere pericolosamente 

□ Avevo il programma “Print Shop” 
finché non mi è venuto il prurito di 
cambiar nome al disco, e da allora non 
funziona piò. Se, come penso, ho can- 
cellato qualcosa di importante, come 


fare per ripristinarne il normale fun- 
zionamento? 

(Raffaele Fittatelo* Taranto ) 

* Quasi certamente hai combinato 
un bel guaio dal momento che "Print 
Shop", sia in versione originale che 
copiata, possiede al suo interno una 
serie dì provvedimenti anticopia che 
effettuano alcuni controlli in varie 
parti del disco per accertarsi che il 
floppy non sia una copia pirata. 

Nonostante questi provvedimenti 
siano del tutto inutili (le copie pirata, 
infatti, circolano in numero maggio- 
re rispetto alle originali) è indispen- 
sabile non alterare per nessun moti- 
vo tracce e settori dei dischetti, nem- 
meno per operazioni "innocenti" co- 
me il cambio del nome. Nel tuo caso, 
purtroppo, non c'è nulla da fare, se 
non procurarsi un altro esemplare di 
dischetto funzionante. 


Font di caratteri 

□ Esiste un programma che consente 
di cambiare i tipi dì carattere (font) 
della stampante MPS 803? 

(Mario Cosma. Venezia ) 

* E’ possibile, a patto di programma- 
re, uno per uno, i caratteri desiderati. 
A dispetto della fatica ìmproba, però, 
alla fine del lavoro otterresti una uti- 
lity lentissima e di scarsa applicazio- 
ne pratica. 

L'unico modo per aggirare l ostaco- 
lo sarebbe quello di sostituire la 
ROM dei caratteri della stampante 
con una Epram personalizzata se- 
condo i propri gusti. 

L'operazione non è del tutto assur- 
da tanto che, in più occasioni, ho 
proposto ai responsabili di numerose 
Ditte di realizzare, e commercializ- 
zare, le suddette ROM. 

Finora nessuno ha accolto l'invito, 
forse perchè l'operazione non è con- 
siderata redditìzia nonostante rele- 
vato numera di utenti interessati. 

C'è qualche lettore eperto di hard- 
ware che vuole cimentarsi neìfim- 
presa? Pubblicheremmo volentieri il 
suo lavora e non avremmo difficoltà 
a indicare il suo nominativo per la 
vendita per corrispondenza di E- 
prom e accessori vari... 
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il joystick anatomico, 
per ogni tipo di mano. 


• design rivoluzionario, 

si adatta perfettamente alla tua mano 

• dotato di micro-switch 
svizzeri 

• sopporta fino a 10 
milioni di sollecitazioni 



DIDATTICA 


QUALSIASI COMPUTER 


Scomposizione 

in fattori primi 


Un listato che si rivela molto utile 
quando non si vuole perder tempo 
a scomporre i numeri dettati dal professore 

di matematica 


di Mauri/io Dell'Abate 1 


^^Jon stia ino a spiegare che cosa sia 
una scomposizione in fattori primi: i 
diretti interessati (gii studenti delle 
medie c, talvolta, delle superiori) le 
sanno benissimo (!), 

Grazie a questo programma tutto è 
reso automatico e a prova di errore: 


non restii, in seguito, che riportare sul 
quaderno la comoda videaia. 

N.IÌ. Nei DATA sono contenuti i fat- 
tori primi con t quali può operare il 
programma. Tali valori sono più che 
sufficienti per numeri di bassa e me- 
dia grandezza, ina quanti volessero 


potenziare il listato possono aggiun- 
gerne a volontà ricavandoli da una 
delie tabelle spesso presenti nelle ap- 
pendici dei testi di matematica, 

1 più raffinati possono provvedere a 
compilare il programma che, in cent 
casi, richiede tempi lunghi di elabora- 
zione. 


100 REM SCOMPOSIZIONE IN FATTOR 
I PRIMI 

110 REM BY MAUR12I0 DELL 'ABATE 
120 : 

130 PRINTCHRSC 147) 

140 PRINT : PRINT TA8C4) ; CHRSC 18) 
! ” PROGRAMMA PER LA SCOMPOS 
IZIONE *’ 

150 PRINT TABC2) ; CHRSC 1B) ; ” IN 
FATTORI PRIMI DI NUMERI INT 
ERI ” 

160 PRINT: PRINT: PRINT 
170 INPUT "NUMERO”; A; A-INTCABSC 
A)) : IF A<-1 THEN RUN 
180 PU-1 

190 PRINTCHRS (147) : PRINT: PRINT” 

“iA; : REM SSPAZI 

200 RE5TQRE : POR 0-1 IO PUjREAD 
DU;IF DU>0 THEN NEXT : GOTO 
220 

210 GOTO 230 

220 ZX— A/OU : I F ZX<> INTCZX) THEN 
PU-PU+1 : GOTO 200 
230 A-ZX: PRINT TABC15) ; CHRSC221 
1 ; " ”;DU: REM 2 SPAZI 

240 PRINT " ” ; A ; : REM SSPAZI 

2S0 IF A< > 1 THEN 200 


260 PRINT: PRINT TABC 15) ; "PREMI 
UN TASTO" 

270 GET UIS : I F US-”" THEN 270 
200 RUN 

230 PRINTCHRSC 147) 

300 PRINT” PER SCOMPORRE QUESTO 
NUMERO, OCCORRE” 

310 PRINT” AGGIUNGERE ALTRI NUM 
ERI PRIMI NEI" 

320 PRINT” DATA IN CODA AL PROG 
RAMMA , “ 

330 GOTO 260 
340 : 

350 REM NUMERI PRIMI 
360 DATA 2,3,5,7.11,13,17,13,23 
,23,31,37,41,43,47,53,53,61 
.67,71,73,73,63,63 
370 DATA 97,101,103,107,103,113 
, 127, 131 , 127,131 , 137,133, 14 
3,151,157,163,167 
3B0 DATA 173,173,181,131,133,13 

7. 159 .211. 223. 227. 223. 233.2 
33,241,251,257.263 

330 DATA 263,271,277,281,283,29 

3.307.311.313.317.331 . 337.3 
47, 349.353,359,367 

400 DATA -1 : REM END FLAG 
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ALTA RISOLUZIONE A BASSO COSTO 

LA MIGLIORE PERIFERICA PER GRAFICA 

GRAFPAD II 


Software compreso su cassetta e disco 


• DIMENSIONE DISEGNO: FORMATO A4 

• ALTA RISOLUZIONE A COLORI 

• PER CASA E UFFICIO 

• DIVERSI PROGRAMMI OPTIONAL 

• DISEGNO A MANO LIBERA 

• DISEGNO CIRCUITI ELETTRICI 

• CREAZIONE Dì BIBLIOTECA SIMBOLI GRAFICI 


LA PRIMA TAVOLETTA GRAFICA A BASSO COSTO PER AMSTRAD 464-664- 
CHE OFFRE fciOQ 

1 C DE3PQTA7rnMI E ni I DADI! ITA' DU-UtCCTC riAII E V I 


LE PRESTAZIONI E DURABILITÀ' RICHIESTE DALLE 
APPLICAZIONI 

INDUSTRIALI, AZIENDALI, SCOLASTICHE ECC. 

E PICCOLA, PRECISA E AFFIDABILE. 


PER COMMODORE 64-128- 
128D 


NON HA BISOGNO DI MANUTENZIONE 


NOVITÀ' ASSOLUTA PER COMMODORE 64 

RICONOSCITORE VOCALE: comanda a voce il tuo Commodore 64 tramite microfono 


NOVITÀ' ASSOLUTA IN ITALIA 

Televisore TASCABILE: seguite le trasmissioni televisive in qualsiasi luogo. Dimensioni: 13cmx7cmx3 cm. 


AMSTRAD 464-6654-6128 

Penna ottica 

Espansione di memoria 64K - 256K 
Sintetizzatore vocale 
Disc Drive con controller 
Stampante DMP2000 

TASWGRD; WP potente per creazione di testi e documenti 
TASPRINT; Programma supplementare al precedente per la stampa 

TASCQPY: H artico py-stampa immagini anche in formato ooster di tutto ciò che compare su video 
MASTER FI LE: Sistema di arch iv azione e ricerca selettiva - potente DATABASE 
MUSIC-SYSTEM; Per comporre musica 


AMSTRAD PCW 8256 -8512 

Espansione di memoria 256KB + secondo disco da 1 Megabyte in Kit di montaggio 

GRAFPAD IH: tavoletta grafica ad alta risoluzione per CAD professionale completa di software e manuali in 

italiano 

TASWGRD 8000: elaborazione testi con abbinamento testi a indirizzi, stampa etichette, stampa in protocollo 
TASPRINT 3000 Program ma complementare al precedente per stampa professionale con 8 stili diversa 
CYRUS II: scacchi tridimensionali professionali 


CONSEGNA IN TUTTA ITALIA: TELEFONARE PER INFORMAZIONI 

5*T* System - Via Q, Palano, 1 3/B - 24100 Bergamo - Tei. 035/239751 








GIOCHI D AZZARDO 

QIIALS IASI CO M MO DORÈ 



La tassa sugli imbecilli 


Viene descritto in che modo lo Stato (con il Lotto) e la Camorra 
(Lotto clandestino) riescono sempre a vincere montagne di denaro 

grazie al popolare gioco del sabato 


di ( Kanu’i hi 


I SULTA TQ 

Numero di casi 


Lancio dì due dadi : i 36 casi possibili 
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iSe, alVinizio di una tombolata, un 
amico vi proponesse "Scommetto 
1000 lire che il primo numero estratto 
è dispari", si tratterebbe di una scom- 
messa che ì matematici chiamano E- 
QUà; dei 90 casi possibili, infatti, 45 
sono a vostro favore e 45 sono 
contro. 

Se invece vi venisse proposto: ‘1000 
lire che il primo numero sarà minore 
di 50’" l'amico sta cercando iì pollo: 
lui ha, infatti, 49 possibilità a favore, 
voi solo 41. La scommessa sarebbe 
■"equa" se, invece che alla pari ", fos- 
se formulata "49 contro 4P. Esem- 
pio: "Se esce un numero da 50 in su. ri 
pago 4900 lire, altrimenti me ne dai 
4100", 

Infine un amico che accettasse 
scommesse sul primo estratto, dicen- 
do: “Se sbagliate a indovinare mi da- 
te 1000 lire, se indovinate vi pago io 
100 in ila" va porta to al manicomio: 
di fronte a 90 scommesse, ognuna su 
un numero diverso, si troverebbe ad 
incassare 89 volte 1000 lire, per pa- 
garne poi 100 mila. 

Dalla considerazione precedente si 
è portati a concludere che la scom- 
messa sul primo estratto è equa se 
fatta "89 contro 1" ovvero, in caso di 
vincita, si riscuote 90 volte la posta. 
Qui la conclusione è corretta, però 
questo tipo di ragionamenti, in casi 
leggermente diversi, può portare a ri- 
sultati sbagliatici dia un’occhiata al- 
la figura), 

D aliro lato molte persone sarebbe- 
ro disposte ad accettare scommesse 
del tipo “62 contro 1" sul primo e- 
st ratto, in base alia considerazione: 

"Se perdo, neanche mi accorgo dì 
avere 1000 lire in meno; invece, se 
vinco, con 62 mila lire si fa già una 
bella cenetta,.,” 

Si tratta di un ragionamento psico- 
logicamente ineccepibile, ma in real- 
tà. accettando la scommessa, rimar- 
reste vittima di un furto a causa della 
scommessa “iniqua". 

Truffe o opere di bene? 

La quota ”62 contro I" non l'ho 
scelta a caso: è effettivamente la 


scommessa che lo Stato propone o- 
gm settimana a chiunque voglia gio- 
care sul "primo estratto 1 " al gioco del 
Lotto. In effetti l'indicazione sul ta- 
gliando è "63 volte la posta” Giocan- 
do (c pagando in anticipo) 1000 lire, 
in caso di vincita nc incasserete 
63000, per un utile netto di 62000 (in- 
vece delle 89000 che teoricamente 
renderebbero il gioco equo). 

L" un furto? Beh, mettetevi nei pan- 
ni dello Stato: con le somme giocate 
deve stipendiare i dipendenti dei 
Botteghini del Banco Lotto sparsi in 
tutta Italia, quindi una 'tassa" di 
27000 lire sulle 89000 teoriche può 
sembrare più che ragionevole (o no?). 
Certo è, che se tentaste di tener voi 
banco ad un gioco del genere, proba- 
bilmente finireste dentro per bisca 
clandestina. 

Per altri tipi di scommessa, come 
quella sulla cinquina, l'entità del pre- 
lievo statale effettualo sulle vincite ri- 
sulta tanto scandalosa {listato 3) che. 
fin dal nascere, ri Lotto fu sopranno- 
minato "la tassa sugli imbecilli” 


I ritardi 

E veniamo al controverso proble- 
ma dei "numeri che ritardano . Men- 
tre sto preparando questo articolo 
(settembre ‘86). una pagina del TE- 
LEV1DEQ destinata al problema dei 
numeri ritardatari informa che, sulla 
mota di Torino, il numero 70 non e- 
sce da ormai i 01 settimane. 

E’ corretto dedurre da tale informa- 
zione che è un investimento vantag- 
gioso puntare grosse cifre sul 70 "e- 
stratto semplice’ per la ruota di 
Torino? 

E magari aumentare la posta nelle 
settimane successive, qualora il 70 
continuasse a ritardare? 

Dal punto di vista matematico la ri- 
sposta è negativa, cosi come è negati- 
va la risposta albana Logo problema 
posto dal giocatore che tenta di fare i 
soldi albi Roulette puntando "al rad- 
doppio” su Rosso-Nero. 

Per capirne il perchè, è bene co- 
minciare da un gioco più semplice 
del Lotto, che è poi molto sìmile al 
Rosso-Nero della Roulette (dove pe- 


rò la presenza dello zero è un handi- 
cap in più): giocheremo cioè con una 
moneta "ben equilibrata" e col pro- 
blema del Lesta o Croce’ 

In questo gioco un problema sui ri- 
tardi potrebbe essere così formulato: 
avete assistito a qualche lancio dì u- 
na monda, ed avete visto uscire TE- 
STA per sette volte di fila: venite invi- 
tali a scommettere sul prossimo lan- 
cio; cosa scegliete? 

Indipendentemente dalla risposta 
che avete in mente, sospendete per 
un attimo la riflessione su quesio 
problema e seguitemi nell’organizza- 
zione del seguente: 

PRIMO TEST, Supponete di dare ad 
otto persone una moneta ben equili- 
brata; invitate ognuna di esse ad ef- 
fettuare un lancio; poi chiedete ad o- 
gnuTiG ii risultato ed annotatelo su un 
foglio di carta. 

Quanti sono i possibili risultati? 11 
conto è facile: la prima risposta for- 
nisce due eventualità, ognuna delle 
quali sì ramifica in due quando si ag- 
giunge la seconda risposta. Fin qui i 
casi sono 4: TT, TC, CT, CC. avendo 
abbreviato Testa con T" e C rocc con 
"C”; ognuno dei 4 casi ne genera altri 
due quando sì tiene conto della terza 
risposta, e così via per le altre. 

Si Traila perciò di eseguire 2*2*. + ,*2 
otto volte; cioè 256. 

Se invece delle lettere "T" e "C" an- 
notate i risultati scrivendo I perii ri- 
sultato Testa e 0 per il risultato Croce, 
un "esperimento" corrisponde ad u- 
na sene di otto cifre binarie. Tradotto 
il numero in decimale, ogni esperi- 
mento corrisponde a uno dei numeri 
0. 1. 2. 3. .,,.255: e viceversa oeni nu- 

V- 

mero tra Oc 255. tradotto in bina rio (e 
con l'eventuale aggiunta di qualche il 
iniziale) corrisponde ad un possibile 
risultato dell'esperimento; 256 possi- 
bili risultati, ognuno rappresentato 
con un valore compreso ira 0 e 255, 

Se si è d’accordo sul fatto che i sin- 
goli risu Itati ottenuti dalle orto perso- 
ne sono tra dì loro indipendenti (e 
come potrebbe il lancio effettuato dal 
primo influire su quello effettuato 
dal secondo, o dal terzo?) il nostro 
primo icst è da considerarsi comple- 
tamente equivalente al seguente: 
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SECONDO TEST. Si sceglie a caso 
un numero intero tra 0 e 255. 

Il passo successivo, su) quale il ma- 
tematico non ha dubbi, ma che è 
spesso rifiutato da chi preferisce la 
cabala alla matematica, è il seguente: 
il primo test (e quindi anche il secon- 
do) è perfettamente equivalente al: 

TERZO TEST. Una persona lancia 
otto volte una moneta, annotando 
via via i risultati dei vari lanci. 

A questo punto il problema relativo 
al Testa e Croce proposto in prece- 
denza può essere così ri formulato:, e 
stato estratto un numero a caso tra 0 e 
255: si sa che questo numero è più 
grande di 253 (perche, scrino in bina- 
rio, le prime sette cifre sono tutte 1 ). Il 
prossimo sarà il 254 o il 255? 

La risposta è ovvia: non ci sono mo- 
tivi per scommettere sul 254 piuttosto 
che sul 255! 

Naturalmente potete non essere 
d'accordo sulla equivalenza dei test 
considerati: però in tal caso è inutile 
andare a cercare sui vostri vecchi li- 
bri di Matematica un’idea per vince- 
re al Lotto giocando sui numeri che 
ritardano: da questi libri, interpre- 
tando correttamente le informazioni 
contenute, potrete solo concludere 
che non conviene giocare al Lotto. 

Sperando che queste considerazio- 
ni non vi abbiano choccato troppo, vi 
dico come reagirei io se fossi invitato 
a puntare su Testa o Croce: sapendo 
solo che ali ultimi 7 lanci hanno dato 
Testa, io sarei indotto a pensare di es- 
sere di fronte a una delle tre even- 
tualità: 

* la moneta è truccata; 

* chi lancia la moneta ha una parti- 
colare abilità dì prestidigitazione; 

* qualcuno dei presenti possiede stra- 
ne doti di telecinesi, e se ne sta 
servendo. 

In tutti e tre i casi (ma a malincuore, 
perchè se siamo nel primo caso sa- 
rebbe mio interesse scommettere su 
Testa) io rifiuto di giocare: i giochi- 
truffa non mi piacciono! 


Esame delia figura 

Se lanciate 600 volte un dado non vi 
aspetterete certo di ottenere esatta- 


mente cento lanci con esito L cento 
con esito 2 e così via. So. però, l i è u- 
scito solo una ventina dì volte ed il 6 è 
uscito quasi 200 dovreste cominciare 
a sospettare che il dado sia truccato. 
Per confermare questa ipotesi basta 
provare ad eseguire 6000 lanci e con- 
trollare se ancora la "frequenza'’ 
dein e quella del 6 restano molto 
lontane. 

Pensate ora dì lanciare due dadi: se 
effettuate 12000 lanci, quante volte vi 
aspettate di ottenere 7? Se la vostra ri- 
sposta non è “ci rea 2000 volte’" dovete 
rifletterci su ancora u n po’, Avete, in- 
fatti. impostato il discorso partendo 
dalla considerazione che i casi possi' 
bili sono 1 1 fe cioè: 3 a somma dei da- 
di Ta 2; oppure fa 3; oppure 4.,. fino a 
12); senza però tenere conto del fatto 
che i casi considerati hanno una di- 
versa probabilità: dovrebbe bastare 
un attimo di riflessione per rendersi 
conto che ottenere un 7 è “più facile"’ 
che ottenere un 12, oppure un 2: la fi- 
gura 1 indica la maniera corretta di 
impostare il problema, 

In particolare, se venite invitati a 
scommettere sul numero che uscirà 
lanciando due dadi, non potete a- 
spettarvi una scommessa del tipo 10 
contro D: l'unica cosa ragionevole, 
da pane di chi vi invita a giocare, è 
proporcelo a 5 contro 1: c se voi ac- 
certate dovete puntare sempre sul 7! 

Tramite il listato L che simula il 
lancio di un dado, potete controllare 
la “casualità” della funzione RND 
implementata sul vostro computer; il 
listato 2 simula invece il lancio di 
DUE dadi. A commento dei listati, 
qualche prob lemino per i lettori 
più diligenti: 

• Nel listato L lìnea 10, è definita una 
funzione col nome DICE (è il nome 
inglese per dado). Potete natural- 
mente sostituirlo con DADO: ma 
perchè questa sostituzione genera un 
SYNTAX ERROR su C/16. PLUS/4 
e C/128? 

* Sempre nel listato 1 , interpretate be- 
ne le REM in linee 20. 30, 

■ Problema analogo per i! listato 2 

■ Nel listato 2, linea 10, l'espres- 
sione 

INT(6*RND( l })+ INT(ó*RND( 1 )) 
non può essere sostituita con una 
delle espressioni (più semplici, ma 


che non danno il risultato voluto): 

2*INT{6*RND( 1» 

oppure 

Ó*RND(1)+6*RND(1) 

Ne vedete la ragione? 

* Modificate i listati 1 e 2 , sopprimen- 
do in linea 10 l'addendo 1 e 2 rispetti- 
vamente (c sempre un problema di 
velocità: {'operazione considerata va 
iterata un gran numero di volte...). 


Notizie sul Lotto 

Le estrazioni del gioco dei Lotto si 
svolgono ogni sabato pomeriggio in 
10 città italiane (BG. CA_ FL GE. MI. 
NÀ, PA, ROMA, TO. VE), 

Alla presenza di un funzionario 
dellìntendenza di Finanza, che ga- 
rantisce la correttezza delle opera- 
zioni. da un’urna contenente 90 bus- 
solotti numerati da 1 a 90 vengono e- 
stratti 5 numeri che, neìfordine di e- 
strazione, vengono poi comunicati a- 
gli organi di informazione. 

Per facilitare il rimescolamento dei 
numeri le urne avevano anticamente 
!a forma di una ruota: una giocata 
fatta "per la mota di Napoli” signifi- 
ca semplicemente che la scommessa 
concerne solo i numeri che usciran- 
no nell estrazione svolta a Napoli, Li- 
na giocata di 9000 lire, fatta 'per tutre 
le ruote", equivale a 10 giocate (tutte 
da 900 lire), fatte ognuna per una 
ruota. 

Oltre al "primo estratto”, di cui ab- 
Piamo già parlato nel corso delfarti- 
colo. il gioco del Lotto prevede la 
possibilità di effettuare vari tipi di 
scommesse per una o più ruote (fare- 
mo riferimento ad un’unica ruota): 

* "Estratto semplice ": si scommette 
che un determinato numero sarà tra i 
5 estratti sulla ruota prescelta. 

* Ambo. temo, quaterna, cinquina: 
dei cinque numeri che multeranno 
est ratti, si pretende di indovinarne ri- 
spetti va mente due. tre. quattro, o tutti 
e cinque. 

Per calcolare la probabilità di vin- 
cita tb queste giocate basta fare uso 
dei "coefficienti binomìali'(se li ave- 
te dimenticati, iì listato 3 vi aiu- 
terà). 

Ad esempio esistono 90*89/2 ~ 
4005 ambi diversi: ed ogni estrazione 
fornisce 5*4/2 - 10 ambi vincenti: il 
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gioco sarebbe matematicamente e- 
quo se lo stato pagasse 400 volte e 
mezza la posta (invece la quota stabi- 
lita dalla legge è di sole 250 volte la 
posta) 

Le altre quote previste dalla legge 
sono: 

10 volle c mezzo la posta per l’estratto 
semplice (ma si veda il prossimo 
paragrafo): 

4000 volte la posta per il terno; 
HOMO volte la posta per la quaterna; 
un milione di volte la posta per la 
cinquina. 

Si osservi che la "lassa" automati- 
ca mente percepita dallo Stalo sulle 
vincite ù vìa via piu elevata: sulla cin- 
quina la " quota -equa” che lo Stato 
dovrebbe pagare corrisponde ad ol- 
ire 43 milioni di volte la posta! 

I! listato 3 calcola automatica men- 
te ìa vincita corrispondente ad ogni 
puntuta, l'apparente complicazione 
del risialo è dovuta al Fatto che, volen- 
do puntare 10000 lire sull'uscita dei 
numeri 2. 55 e 90 per la ruota di Na- 
poli, siete autorizzati a ri parti re le vo- 
si re diecimila giocando “7000 sul ter- 
no e 3000 sull' ambo". In realtà sareb- 
be pi ù co rretto dire "3000 sugli a mbi" 
perchè con ire nu meri si possono Tor 


mare TRH ambi (nell'esempio de! 
terno 2. 55. 90: l'ambo 2-55, quello 2- 
90 c quello 55-90). Naturai mente la 
vostra puntata equivale ad una pun- 
tata di 7000 lire sul terno e di tre pun- 
tate» ognuna da 100(1 lire, su ognuno 
degli ambi. 


Una furbizia popolare 

Se, entrali in un botteghino del 
Banco Lotto, provate a chiedere di 
giocare "89000 lire sul 35 per la ruota 
di Napoli" vi sentirete probabilmen- 
te domandare dalLim piegato, con to- 
no meravigliato: "Per ambula?'. 

Si tratta di ima giocala "non ufficia- 
le", nata in seguito ad un grossolano 
errore del legislatore, all'atto di deci- 
dere le quote relative alle vincite: un 
ambo viene pagato 250 volte la posta, 
mentre l'estratto semplice c pagato IO 
volte e mezzo. Supponete dunque di 
giocare 89000 lire sul 35 (la cifra è 
scelta apposta per fare meglio i con- 
ti). Se avete fortuna incasserete 
89000* 1 QJ - 934500 lire. 

Supponete ora di chiedere al mal- 
capitato impiegato di compilare 89 
bollette da 1000 lire ciascuna: una 


sull ambo 1-35, una sull’ambo 2-35, 
una sul 3’35 e cosi via fino all'ambo 
90-35 (si tratta solo di 89 ambi, perchè 
naiuralmente l'ambo 35-35 va sai- 
lato). 

In questo caso spenderete, come 
prima, 89000 line ma. sempre nelfi- 
potesi che il 35 venga estratto, incas- 
serete leggermente di più; l'uscita del 
35 fa si che 4 dei vostri ambi risultano 
vincenti; poiché ognuno di essi vale 
250 volte la posta, le vostre giocate vi 
faranno guadagnare un milione... 

La Storia non ci ha tramandato il 
nome del fu rbacch iotto che ha sco- 
perto questo sistema basato, badate 
bene, non su di una bizzarria mate- 
matica ma sulla fondamentale ini- 
quità del gioco. 

A causa, probabilmente, delle pro- 
teste dei dipendenti che sì trovavano 
a dover "'scrivere troppo ”, e forse an- 
che per risparmiare sulla carta (per 
ogni giocata occorre compilare un ta- 
gliando madre ed uno figlia) Io Stato 
ha ormai accettato la giocata "per 
ambula che sta appunto a significa- 
re: 'gioco su tutti gli 89 ambì fatti 
con,..". La vincita corrispondente al- 
fa mbala è naturalmente 1000/89 vol- 
te la posta. 


1 

REM LISTATO 1 


TTES0’’N/6" V0LTE>” 

a 

REM LANCIO DI UN DADO 

140 

END 

3 

10 

DEF FNDICE<X5-1 + INTCB*RNDC 1 

3 3 

1 

REM SECONDO LISTATO 

20 

REfl PER ACCELERARE L'ESECU 

e 

REM LANCIO DI DUE DADI 


Z IONE RISCRIVERE LA 10 NELL 

3 

m 


A FORMA : 

10 

DEF FNDADI C X 5 "E-*- 1 NT C 6*RND C 1 

30 

REN DEFFNDICECX)“1 + B*RNDC1 


3 3 + 1 NT (6*RND( 13) 


> 

20 

REM PER ACCELERARE L’ESECU 

40 

PRI NT "SIMULAZIONE DEL LANCI 


ZIONE RISCRIVERE LA 10 NELL 

50 

0 DI UN DADO" 

INPUT "QUANTE PROVE”; N 

30 

A FORMA : 

REM DEFFNDADI CX)’=E+6*RNDC 1 

G0 

FOR X-l TO N 


3 + 1 NT CS*RND C 1 ) 3 

70 

Y=FNDICE(X) 

40 

PR INI "SIMULAZIONE DEL LANCI 

00 

ACY3-ACY3+1 


a DI DUE DADI" 

90 

NEXT 

50 

INPUT "QUANTE PROVE” ;N 

100 

FOR X=1 TO e 

so 

DIM A ( 12 3 ; FDR X-l TD N 

110 

PRINT-IL RISULTATOLE’ USC 

70 

Y-FNOADI CX 3 


ITO” AC X) "VOLTE ” 

00 

ACY3-ACY3+1 

180 

NEXT 

90 

NEXT: FRINÌ 

130 

PR I NT ” ( OGNI RISULTATO ERA A 

100 

PRINT "NUMERO/CHE E’ USCITO/ 
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40 


50 


ERA ATTESO CIRCA" : PRINT 
110 FOR X“2 TO 12 
120 READ A 

130 PRINTX TABCS)AtX) ”UOLTE” , IN 
TC , 5+A»N/36) "UOLTE 
140 NEXT 

150 DATA 1,2, 3, 4,5, 6,5,4, 3, 2. 1 
160 FNfl 

1 REFI TERZO LISTATO: 

2 REM CALCOLO DELLA 

3 REH UINCITA AL LOTTO 


PR I NTCHRSC 147)CHR£C 17 3CHRSC 
1B)SPCC5)” GIOCO DEL LOTTO 
” : PRINT 

Din NSC5):F0R X-l TO 5; READ 
NSCX) : NEXT 

DATA ESTRATTO SEMPLICE . AMBO 
, TERNO, QUATERNA, CINQUINA 
□ in QPC5) : FOR X = 1 TO 5 : READ 
□PCX) : NEXT 

DATA 10.5,250,4000.30000,10 

00000 : REFI QE-QUQTA PAGATA 
Din CBCS , 51 : FOR A=1 TO 5:F0 
R B-l TO A : ODSUB 380: CECA, ti 
)-Q: NEXT: NEXT 

DTM QEC5) . NC5) : REM QE-QUOT 
A EQUA ; N-NUriERQ DI POESIE I 
L ITA ’ 

FOR X-l TO 5: A-30: B“X: GOSUB 
3B0 : NCX) -Q: DECX )=Q/CS C 5 , X) 

: NEXT 

PRINT"POSSC LAVORARE SU TUT 
TE LE RUOTE" 

PRINT’O SU UN’UNICA RUOTA:” 
: PR I NT 

PRI NT "QUANTI NUMERI UUOl Gl 

□CARE”: : INPUT N 

PRINT "PER TUTTE LE RUOTE”;: 

INPUT E$ : R=10: REN R-# RUOT 

E 

R-105 IF R$<"S” then R-l 
IF N> 1 THEN 250 
PRINT”LO GIOCHI COME PRINO 
ESTRATTO” INPUT AS:IF A$<” 
S” THEN 1B0 

PRI NT "QUANTO GIOCHI”; : IF R“ 

1 THEN PRINT” SU OGNI RUOTA 


B0 


30 


100 


110 


120 


130 

140 

150 


170 

1B0 

130 

200 

210 


220 


230 

240 

250 


260 


270 

2B0 


230 


300 


310 


320 


330 

340 


160 


350 

360 

370 

380 


330 


400 


INPUT □: Q“0/R: QE'O*90: QP-O* 
63: GOTO 210 

PRI NT "ALLORA GIOCALO PER AM 
HATA” 

PR I NT”QUANTO GIOCHI”: 

INPUT Q:Q=Q/R: QE“Q* 1 B : QP“Q* 
1000/B3 

IF R-10 THEN PRI NT "PER OGNI 
RUOTA IN CUI IL NUMERO ESC 
£" 

PRINTCHRS< 19) "UINCERAI “INTC 
OP ) : PRI NT”< LA QUOTA EOUA SA 
REBBE ,, 0E”) ” 

PRINT: INPUT "ALTRE GIOCATE” 
; A$ : I F A$>”NO” THEN 110 
END 

PRINT : FOR X-l TD N:PRINT”QU 
ANTO GIOCHI SU ”NsrX);:INPU 
T Q: Q=Q/R 

QCX)'-Q/CB<N,X);REM QUOTA E 
FFETTI UAMENTE GIOCATA SU OG 
NI COMBINAZIONE X 
NEXT 

FOR X=1 TD N : Q=0 : FOR Y-l TO 
X : Q=Q+Q( Y) : NEXT : IF Q-0 THE 
N 370 

PRINT: PRI NT "SE I NUMERI CHE 
ESCONO SONO "CHR35C 1B1XCKRSI 
C 146) " UINCERAI” 

IF R= 10 THEN PR I NT ” C PER OGN 
I RUOTA IN CUI ESCONO ”X”NUM 
ERI)”: PRINT 

QE^O : QP—0 : FOR Y-l TD X:IF □ 
CY)-0 THEN 340 
Q=QCY)*CECX, Y):QE=QE+Q*QECY 
) : Q-0*QP<Y) :PRINTD”PER LA G 
IOCATA SU ”N$CY) 

QP=QP+Q 

NEXT : PR INTCHRSC 1B) ” IN TOTAL 
E UINCI ”QP : PRINT”CLA QUOTA 
EQUA SAREBBE "□£”) ” 
PRINT”PREMI UN TASTO” 

GET A5 : I F A$-”“ THEN 360 
NEXT: PRINT: PRINT:GOTO 230 
Q=1 : FOR Z-l TO B:Q=Q*CA+1-Z 
) :Q=Q/Z : NEXT : Q-INTCQ+ .5) : RE 
TURN 

REM RESTITUISCE Q-COEFFICI 
ENTE BINOMI ALE DI A SU 8 
END 
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PALAZZO DE! CONGRESSI DI ROMA EUR 

TRADIZIONE e NOVITÀ: una perfetta fusione per questa settima edizione di EDP USA ROMA 
tunica rassegna dì informatica americana dedicata al mercato dell'Italia Centromeridionale. 


Oltre che da alcuni seminari di studio sulle più attuali tematiche del settore, 
quali “Reti Geografiche c Reti Locali”, “Software per Intelligenza Artificiale", e ‘ Persona) Computer e CAD 
la mostra sarà caratterizzata dalia presenza di una sezione interamente riservata alle società 
statunitensi produttrici di software, chiamata “SOFTWARE VILLAGE”, 
presso la quale sarà presente anche una missione ufficiale inviata dal Governo americano. 

Il Centro Commerciate Americano, organizzatore deila manifestazione, è a disposizione per fornire 
.D»tN!i«y ulteriori informazioni su mostra e seminari. ^ 

CENTRO COMMERCIALE AMERICANO 

I * VIA GATTAMELATA, 5 / 20149 MILANO VjJwMg, 

% > TELEFONO 46.96.451-2 / TELEX 330208 USIMC-I 
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QUALSIASI COMPUTER 


Che 

cosa 

c’è 

nei 

vostri 

floppy? 


Una utility 
(in LM!) 

indispensabile per 
chi intende 
smanettare 
con il drive 


di Paolo Af attlni 


Nessuno penserebbe di buttare giù 
un muro con le mani nude oppure di 
costruire una casa senza mattoni o 
cemento. Cosi è nel campo del com- 
puter: è impensabile tare qualcosa di 
valido se manchiamo degli strumenti 
necessari. 

Uno di questi è proprio un "Moni- 
tor” per i floppy disk. Senza di questo 
non è possibile intervenire sui dischi 
per modificarne tracce o >ettori allo 
scopo di ottenere risultati un po’ fuo- 
ri delia norma tra cui quello di pro- 
teggere, da intrusioni esterne, alcune 
tracce o determinati settori, o per ma- 
scherare la presenza di routine in lin- 
guaggio macchina nascoste in punti 
impensati del disco. O anche per stu- 
diare più a fondo il comportamento 
del DOS ed eventualmente trovare 
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gli artifizi che sono sen iti ad ali ri per 
proteggere i loro programmi. 

Il programma 

Copiate con la massima attenzione 
il programma in BASIC, Questo li- 
stato, che chiameremo “codice sor- 
gente" ha lo scopo di creare un “ codi- 
ce oggetto" su disco in modo da uti- 
lizzarlo, in seguito* con la massima 
velocità. 

Ogni riga è composta di iti dati più 
un dato di controllo. Il computer 
“somma" logicamente i dieci dati e li 
confronta, riga per riga, con la cifra 
di controllo. Se vi sono divergenze il 
programma si blocca c segnala le tre 
righe in cui è più probabile che ab- 
biate commesso Terrore di trascri- 
zione. 

Se il computer si blocca senza se- 
gnalare Terrore in italiano (appari- 
ranno tipiche segnalazioni di errore 
in inglese}* significa che avete scritto 
una cifra maggiore di 255 tra le righe 
di Data. 

In questi casi, per rintracciare la ri* 
ga dove avete commesso l'errore* è 
sufficiente dare in modo diretto il 
comando: 

FRINT PEEK(63)+ PEEK(64)*256 

e sullo schermo apparirà l'ultima 
riga di dati “ letta" dal computer Se 
tutti i dati sono esatti* seguendo le i- 
struzioni che appariranno su video 
vena creato un programma (in lin- 
guaggio macchina), che sarà possibi- 
le caricare con un semplice 
LGAD*DISKMON” t 8 e far partire 
con RUN. 


Come utilizzare il programma 

Dopo, appunto, il Run di "Disk- 
mon" vi troverete in ambiente moni- 
tor e apparirà la lista dei comandi a 
vostra disposizione. Esaminiamoli 
uno per uno. 

S (dollaro): questo comando trasfor- 
ma 2 oppure 4 caratteri esadecimali 
ìn un numero decimale. Provate a 
dare il comando SC000, dovrebbe ap- 
parire sullo schermo la cifra #49152* 


Provate a dare il comando SI 2. sullo 
schermo dovrebbe apparire #18, Se 
introdurrete valori esadecimali di 
cinque o più cifre, sara imo sempre le 
ultime 4 cifre introdotte ad essere tra- 
sformate in un numero decimale. 

# (cancel letto): questo comando tra- 
sforma un numero intero, (valore, 
cioè, senza virgole decimali) in un 
nu mero esadeci male. Il valore massi- 
mo consentito è di #65535. Se intro- 
durrete numeri maggiori* apparirà 
un esadeeimale di quattro cifre, ma si 
tratterà di un valore completamente 
casuale. Provate a dare il comando 
#13: dovrebbe apparire sullo scher- 
mo il valore esadeeimale SOOOD. 

X : questo comando consente di usci- 
re dal Monitor (è l abbreviazione di 
“eXiiT usata in quasi tutti ì monitor 
in l,m.) 

— 

Nel digitare righe di programma ba- 
sic Che contengono istruzioni DATA* 
è piuttosto factte incorrere in errori di 
digitazione Supponiamo che un ipo- 
tetica linea basic numerata con 1200 
debba contenere i tre valon: 123. 
456, 789 Ecco alcuni esempi di erro- 
ri più frequentemente commessi 

1200 DATA. 123,456 789 

G è una virgola dopo la parola 
"DATA ", I dati letti dal computer so- 
no. in questo c&30, quattro: 0, 123. 
456, 709 Se, infatti, non figura alcun 
carattere dopo l'istruzione DATA, au- 
tomaticamente viene assunto il valo- 
re nullo (0) 

1200 DATA 123*456. 789. 

in questo caso, dopo il numero 
789, il computer, grazie alla presen- 
za della virgola erroneamente inserì- 
ta, “crede" che ci sia un aftra vakxe 
e, non trovandolo, lo assume come 
nullo (0). 

1200 DATA 1234,56.709 

La virgola è posizionata male, vale 
a dire dopo il carattere É, 4" e non 
dopo il carattere "3 M . Il computer non 
pud sapere se il valore esano è 123 
oppure 1234 e individuare un errore, 
in questo caso risulta piuttosto 
laborioso 


Al ( = C hiocciolma, tasto che si trova 
tra la lettera “P ‘ e l'asterisco w *~) : si 
tratta di un comando molto potente, 
dal momento che consente di tra- 
smettere ordini al DOS (Disk Opera- 
ti ng System): 

Il simbolo di chiocciolina, seguilo da 
un semplice RETtJRN, leggerà il ca- 
nale dì errore del disk drive e làrà ap- 
parire sullo schermo il messaggio 
Q,OK,0,0 oppure il messaggio di 
errore. 

Digitando come PRIMO carattere 
quello della chiocciolina e come SE- 
CONDO uno dei seguenti, si otten- 
gono diversi effetti: 

S visualizzerà sullo schermo la di- 
rectory. 

V convalida il disco. 

I imzialìzza il disco* 

S:nome file, cancellerà il file indi- 
cato* 

R: nuovo nome file = vecchio nome fi- 
le. cambierà il nome del file. 
Nmome disco* effettua la “formatta- 
zione corta" di un disco già formatta- 
to. provvedendo a cancellarne la 
directorv\ 

Nmome disco JD effettua la consue- 
ta formattazione di un disco vergi- 
ne, 

UJ. resetterè il disk drive (corrispon- 
de, perii disk drive* a quello che è per 
il Commodore 64 il comando SYS 
6473S). 


Quattro funzioni fondamentali 

E veniamo alle quattro funzioni 
più importanti del monitor. 

Funzione READ: il comando deve 
essere dato come R seguito da uno 
spazio* dal numero esadeeimale cor- 
rispondente alla traccia, da u n secon- 
do spazio e dal numero esadeeimale 
corrispondente al settore. Per esem- 
pio per leggere il primo settore della 
traccia ÌS la sintassi sarà la seguen- 
te: 

R 12 01 [Rctumj 

Come si fa a sapere qual’è il nume- 
ro esadeeimale corrispondente al va- 
lore decimale di una data traccia o 
settore? Elementare, Watson, si usa il 
comando cancellerò (#■) che è slato 
inserito apposta. 
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Dopo aver dato il comando R. e 
ammesso che la sintassi sia stata ri- 
spettata, la spia rossa de] drive si ac- 
cenderà* il computer caricherà in 
memoria il contenuto di un intero 
settore di disco, cioè 236 byte ($00- 
SFF) ma sembrerà che nulla sia real- 
mente accaduto. 

ti settore caricato può ora essere vi- 
sualizzato mediante il comando ME- 
MORY DISPLAY, la cui sintassi è: 
M [punto iniziale] [punto finale] 

Se M non è seguito da alcun valore, 
sullo schermo verrà visualizzato il 
contenuto del settore a partire da SOO 
fino a SFF. E" consigliabile però esa- 
minare a spezzoni il contenuto del 
buffer, per esempio con M 00 60, 
eccetera. 

Sullo schermo appariranno tante 
righe, ciascuna composta da: 

) [segno di maggiore 

: [segno di doppio punto 

(X) [valore esadccimale delia posizio- 


ne del primo byte del buffer visualiz- 
zato. 

Otto coppie contigue dei valori csa 
decimali di altrettanti byte contenuti 
nel buffer caricato tramite READ. 
Otto b\ te (in reverse) rappresentanti 
di stessi se si tratta di caratteri 

■W'" 

stampabili. 

A questo punto è possibile modifi- 
care i singoli valori, spostandosi con i 
tasti cursore sul valore desiderato. Ci- 
gni cambiamento dei valori sisualiz- 
zati, seguito dalla pressione del tasto 
Return, verrà interpretato dal com- 
puter come un comando di modifica 
del contenuto dei buffer. 

Se per esempio stiamo leggendo la 
traccia 18 settore l (primo blocco del- 
la directory) e vediamo che il titolo di 
un programma è. per esempio. "AL- 
GA". visualizzato in caratteri esade- 
cimali come 41 4C 47 41. se trasfor- 
miamo il 47 in 46.il nome del pro- 
gramma diverrà “ALFA". 


Effettuate le modifiche desiderate, 
se sì vuole che queste abbiano un ca- 
rattere permanente, bisogna riscrive 
re il contenuto del buffer sul disco. 

Aquesto scopo è presente il coman- 
do WRJTE. la cui sintassi è esatta- 
mente uguale a quella del comando 
READ. Con W 12 01 riscriveremo 
quindi il contenuto del buffer sul 
disco. 

Non ci resta altro che vedere se il 
cambiamento è stato effettuato me- 
diante il comando chiocciolina - dol- 
laro che visualizza la directory. 

Fintantoché non diverrete abili 
nell’uso del Monitor raccomandia- 
mo di effettuare esperimenti su di- 
schi “cavia”, Dopo ogni modifica ca- 
ricare i file modificati per controllare 
se “funzionano” ancora. 

Attenzione: se sbaglierete ad indi- 
care traccia o settore con il comando 
WRITE, il contenuto del disco sarà 
irrimediabilmente rovinato! 


10(3 RED ********************** 


110 RED DONITOR ESADECf DALE 

PER 

160 RED SETTORI DI DISCO BY 

API 

130 RED ********************** 

140 DATA 017 , 006, 104 , 007 ,156,0 
50, 04tì, 054 , 055,050,137 
150 DATA 143,033,065,080,073,0 
00 , 000 , 000 , 160 , 174 , 334 
160 DATA 160,011,033,030,171,1 
63,013, 163,063,033,074 
170 DATA 317,005,169,000,141,0 

01.003.033.033.010.103 

160 DATA 301,063, 340, 3M5, 301,0 

33.340.345. 163.007. 103 

190 DATA 331,350,011,300,013, 1 

43. 000. 003. 100. 003.014 

300 DATA 013,073,109,011,013,0 
73,006,303,016,336,150 
310 DATA 076,036,006,133,151,0 

33 . 006 . 000 . 165 . 013 . 333 

330 DATA 013,033,303,003,300,3 
00 , 003 , 33B , 001 , 003 , 130 
330 DATA 106,151,306,337,066,0 

33.101. 009 . 169 . 000 . 177 

340 DATA 133,144,169,036,141,3 


11.000. 160.311.133.075 

350 DATA 107,169,008,133,166,1 
60,001,133,103,160,060 
360 DATA 006, 133, 1B6, lb9,096, 1 
33,105,033,313,343,110 
370 DATA 165,166,033,100,355,1 
65 , 105 , 033 , 150,355 , 069 
360 DATA 164,144,300,060,160,0 
06, 140,311 ,00B, 033, 109 
390 DATA 165,355,174,313,006,1 

41 . 313 . 000 . 164 . 144 . 303 

300 DATA E0B, 043, 173,311 , 006, 1 
36 , 306 , 334 , 173 , 313 , 067 
310 DATA 006,033,305, 109, lb9,0 
33 , 033 , 310 , 355 , 033 , 140 
330 DATA 165,355,166,144,306,0 
10,170 , 340 , 006 , 033 , 134 
330 DATA 310,355,076,160,000,1 
69, 013,033,310,355, 136 
340 DATA 160,004,300,196,033,0 

66 . 346 . 076 . 036 . 000 . 000 

350 DATA 000,000,033,336,000,1 

41.014.000. 164.311.046 

360 DATA 177,309,301,033,300,0 
14,173,014,009, 141 , 154 
370 DATA 013,009,169,000,141,0 

14.009.076.347.000. 174 

360 DATA 033,336,009,141,013,0 
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09 , 1 69 , 013 , 039 , 910 , 096 
390 DATA 255 , 169 , 035 , 039,910, 2 
55, 174,013,009, 173, 045 
100 DATA 014,009,032,905,169,0 
76 , 026 , 006 , 000 , 000 , 047 
410 DATA 162,000,149,013,009,1 
42,014,009,039,907,916 
420 DATA 255,901,048,144,026,2 
01,056,176,022,041,146 
430 DATA 015,162,017,206,005,1 
44 , 002 ,105, 009 , 074 , 229 
440 DATA 110,014,006,110,013,0 
09,202,206,242,240,133 
4S0 DATA 223,169,013,032,210,2 
55, 169,036,032,210,063 
460 DATA 255,173,014.009,032,2 
02,009,173,013,003, 121 
470 DATA 032,202,009,076,096,0 
06 , 032 , 236 , 003 , 144 , 006 
4B0 DATA 003,153,019,012,200,1 
98, 151,096,032,096,132 
490 DATA 009,169,039,076,210,2 
85, 169,013,076,210,195 
500 DATA 255,160,000,140,003,0 
02,136,140,004,002,074 
510 DATA 032,207,255,201,013,9 
40 , 093 , 032 , 936 , 009 , 994 
520 DATA 144,016,141,003,002,0 
32 , 907 , 255 ,901,013, 948 
530 DATA 940,008,032,936,009,1 
44 , 003 , 141 „ 004 , 009 , 051 
540 DATA 179,003,009.032,146,0 
11,039,164,011, 159,215 
550 DATA 032,202,009,039,086,0 
09,169,006,032,074,151 
560 DATA 006,039,101,011,076,1 
4B , 008 , 076 , 026 , 006 , 239 
570 DATA 032,236,003, 144, 24B,1 
68,163,006,133,151,018 
560 DATA 032,033,010,032,033,0 
10 , 032 , 081 , 003 , 206 , 224 
590 DATA 24B, 032, 101 ,011 ,076,0 
96 , 00B , 072 , 074 , 074 , 210 
600 DATA 074,074,032,226,009,1 
70,104,041,015,032,009 
610 DATA 296,009,072,138,032,2 
10,255,104,076,210,059 
620 DATA 255,094,105,246,144,0 
02,105,006,105,058,026 
630 DATA 096, lb9, 000, 141,009,0 


02 , 032 , 033 , 010 , 201 , 174 
640 DATA 032,208,009,032,033,0 
10,901,032,206,015,012 
650 DATA 024,096,032,022,010,0 
10,010,010,010,141,109 
660 DATA 002,002,032,033,010,0 
39,029,010,013.002,158 
670 DATA 009,056,096,201,056,0 

08.041.015.040.144. 143 

680 DATA 002,105,008,096,032,2 
07 , 255 , 901 , 013 , 908 , 103 
690 DATA 246,104,104,076,096,0 
08 , 039 , 907 , 955 , 901 , 237 
700 DATA 036,206,003,076,096,0 
08,201 , 013,208,039,190 
710 DATA 169,000,133,144,032,1 
01,009, 169,006,133,130 
720 DATA 186, 039, 1B0, 255, 169, 1 
1 1 , 133 , 185 , 039 , 150 , 153 
730 DATA 255,032,165,255,036,1 
44 , 112 , 005 , 032 , 210 , 222 
740 DATA 255,208,244,032,171,2 
55 , 076 , 026 , 008 , 201 , 196 
750 DATA 036,240,029,072,169,0 
08,133,186,032,177,058 
7S0 DATA £55,169,111,133,165,0 

32 . 147 . 255 . 104 . 032 . 143 

770 DATA 168,255,032,207,255,2 
01,013,208,246,032,081 
780 DATA 174,255,076,026,008,0 
32,033,010,032,236,114 
790 DATA 009,144,245,141,245,0 
11,032,033,010,032,134 
800 DATA 236,009,144,234,141,2 
48,011, 032 , 041 , 011 , 083 
810 DATA 173,000,002,201,001,2 
40 , 030 , 168 , 049 , 032 , 129 
820 OATA 226,010,182,013,032,1 

98 . 955 . 169 . 000 . 039 . 066 

830 DATA 907,955,157,019,012,2 

32 . 208 . 247 . 032 . 204 . 037 

840 DATA 255,032,078,011,076,0 

26 . 008 . 032 . 020 .011. 037 

B50 DATA 169,013,032,201,255,1 

62.000. 189.019.012.021 

860 DATA 032, 210, 25S, £32, £08, 2 
47 , 032 , 204 , £55 , 169 , 052 
B70 DATA 050,032,226,010,076,1 
90,010,141,238,011,216 
BB0 DATA 182,015,173,245,011,0 


► 
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B30 


sm 


910 


930 


930 


940 


930 


960 


970 


990 


930 


1000 


1010 


1090 


1030 


1040 


1050 


1060 


1070 


1060 


1090 


1100 


1110 


1130 


1130 


33.089.011.143.345.100 
DATA 011 , 141,346,011, 173,6 
49,011 ,033,066,011 ,304 
DATA 143,340,011, 141,349,0 

11 . 163. 013. 033. 301 . 100 
DATA 655 ,163, 000 , 109 ,337,0 
11 , 033 , 310 , 355 , 333 , 047 
DATA 334, 013, 300, 345, 076,3 
04 , 355 , 163 ,015 , 033 , 154 
DATA 301 , 355, 163 , 000 , 109,3 
39,011 , 033,310,355, 000 
DATA 333 , 334 t 008 , 608 , 645 , 0 

76.304. 355. 169.015. 100 
DATA 168, 166,008, 036, 196,3 
55,169,000,036, 189,177 
DATA 355,033, 193,355,169,0 
13,168, 166 , 008 , 036 , 00B 
DATA 196,355, 169,001 , 166,0 
77 , 160 ,011, 036 , 189, 619 
DATA 655,075, 196, 855, 035, 1 
69 , 013 , 036 , 195 , 355 , 197 
DATA 169,015,076, 155,655, 1 
63, 048,056,633,010, 195 
DATA 144,003,636, 175,645, 1 
05 , 058 , 056 , 153 f 0S6 , 647 
DATA 833 , 00B f 168 1 036 f 096 , 0 
09, 169, 018, 036,310, 307 
DATA 355, 166,008, 185,019,0 
13,041, 167,601,036,018 
DATA 176,004, 159,046,608,0 
03, 185 , 019,013, 036 T 086 
DATA 310, 655, 169,000, 133,6 
16 , 600 , 603 , 308 , 639 , 036 
DATA 169 1 146,076,610, 655 , 1 
73,001 ,006,308, 006, 366 
DATA 604 , 004 , 006 ,176, 001 , 0 
95,104, 104 , 076 , 066 , 065 
DATA 009,036, 101 , 005, 169,0 
58, 163,066,076,317, 166 
DATA 009,147,013,068,073,0 
93,075, 045 T 083 , 065 , 153 
DATA 057 , 0B4 , 079 , 086 , 036 , 0 
78,069,099,036, 077, 170 
DATA 079,078,073,084,079,0 
86 , 013 f 040 , 067 , 079 , 156 
DATA 077 , 077 , 085 , 078 , 068 , 0 
83,058, 033,083, 044, 156 
DATA 087,044,077,044,064,0 
44 , 036 , 044 , 035 , 044 , 007 
DATA 008,044,058,041,013,0 


1140 


1150 


1160 


1170 


1180 


1190 


1600 


1310 


1660 


1630 


1340 


1650 

1360 

1370 

1380 

1330 

1300 


1310 


1360 


1330 


1340 

1350 

1360 


00 , 066 , 043 , 080 , 036 ,611 
DATA 045,051 ,.036,048,085,0 
49 , 059 , 043 , 051 , 033 , 349 
DATA 048, 036, 000,000, 033, 0 
00 , 000 , 056 , 087 , 083 p 083 
DATA 077 , 064 , 089 , 036 , 035 , 0 
00 , 009 , 010 , 010 , 009 , 096 
DATA 010,637,009,009,174,1 
33,133,105,044, 166, 197 
DATA 616 T 014 , 000 , 063 , 031 , 0 
63,063,063,047, 079,163 
FDR 1- 3049 TU 3094 516 

P 10 : Z"0 

FOR J=0 TU 9: READ 
Z+XJ AND 355: CK~CK+X: NEXT 
J 

READ UJ:RI-PEEK tB3)+PEEK C 
64 ) *35B : PRIMI CHH5 C147J ; JJ R 
I 8 A : ";R1 

IF UK>Z THEN FRINÌ "ERRO 
RE K I GA 11 ; H 1^10 ; ; RI +10 : ST 
QP 

NEXT 1: IF CX< > 107333 THE 
N FRINÌ " ERRORE SONDA DATI 
” : 5TDF 

FRINÌ CHR3j C 1473" IL CODICE 
SORGENTE NON CONTIENE ERRDR 
I" 

FRINÌ "INSERIRE UN DISCO E 
PREHERE UN TASTO” 

POKE 18B , 0 ; UJAI T 190,1; FOX 
E 198,0 

RESTGRE : OPEN 15 , 0 , 15 , “ 1 0 " 
OPEN 9,8,8, ”DISKnUN,F s ur 
INPUT# 15 , E1 , E13> 

IF E1 IHEN CLDSE tì:CL09 
E 15: FRI NT "ERRORE D 1 5CQ : " 
E1 ; E1S : STOP 

FRINÌ# B , CHR$ C 1 ) ; CHRS C9 J ; 

: REA ATTENZIONE AL PUNTO E 
UIRGGLA! 

POR I- 6048 IO 3084 SIE 
P 10 

FDK J-0 IO 9: READ X:FR1 
NT# 8,CHR$ CX);:REI1 ATTEN2 
IONE AL PUNTO E UIRGGLA! ! 
NEXT J : READ Ui:NEXI I 
CL05E 9: INFOI# lb,El f E14 
FRINÌ "STATO DISCO; *E1;E1S 
: CLOSE 15 
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QUALSIASI COMPUTER 

Traccia 18 

e dintorni 


Una manciata di mini programmi di 
straordinario interesse 


di Paolo A Rollini 


Sicuramente, leggendo l'articolo 
' Smascheriamo il drive' apparso su 
CCC N.30, alcuni di voi avranno pro- 
vato a fare i primi esperimenti col 
floppy disk drive per conoscere me- 
glio il suo funzionamento e sfruttare 
a fondo le possibilità che offre 

Questo articolo approfondisce al- 
cuni argomenti, tra cui il funziona- 
meli to di comandi speciali che con- 
sentiranno di applicare protezioni e 
“trucchctti allo scopo di conferire 
un aspetto particolare alle directory 
dei dischi. 

Ponete la massima attenzione nella 
copiatura dei programmi perché so- 
no "critici’' e basta un piccolo errore 
per causarne il malfunzionamento, il 
blocco o (peggio) la distruzione dei 
dati presenti sul floppy, 

E* implicito il consiglio di utilizza- 
re. almeno per i primi esperimenti, 
un disco "cavia’' dal momento che 
ritnpiego dei programmi proposti se 
mal copiati o usali, può causare la 
perdita irrepatabile dei vostri prezio- 
si file. 


1: Memorizza Directory 

Cominciamo con un I (slatino in 
Basic per esaminare la directory dei 
dischi che può essere facilmente in- 
serito come sub- routine in program- 
mi di vostra creazione allo scopo di 
leggere c o controllare il contenuto 
della directory. Il programma, "in- 
ventato" ai tempi del Commodore 


Ir* ET, seppur valido risente del peso 
degli anni, ma può venire agevol- 
mente modificato per scrivere un 
programma che dia la possibilità di 
scegliere ira file diversi contenuti sul- 
lo stesso disco. 

Il nome dei singoli file viene infatti 
memorizzalo nelfarray NF$(144) da 
porre nelle prime righe del program- 
ma principale. 

2: Visualizza Directory 

Il secondo listalo, piu breve, è una 
trasposizione in Basic del sistema 
che viene normalmente usato in lin- 
guaggio macchina. F' molto più velo- 
ce del precedente e non richiede ar- 
ray dal momento che l'unico suo 
compito é quello di visualizzare la 
directory sullo schermo. CCC ha già 
pubblicato più di una volta utility di 
questo genere ma la riportiamo e- 
guai mente per motivi di comple- 
tezza. 


3: Esame protezione disco 

Per essere certi di accedere al disco, 
bisogna che questo sia privo di quel- 
f etichetta da apporre sul foro laterale 
e che in inglese sì chiama “write- 
protect lab*": ha il compito di impedi- 
re di scrivere ^ul disco u di cancellar- 
lo inavvertì la mente. Con il minìpro- 
gramma riportato è possibile accer- 
tarsi della sua presenza senza uscire 


dal programma principale e senza 
incorrere in errori che eventualmen- 
te potrebbero riuscire fatali alla regi- 
strazione dei dati. 


Formattando... 

F. veniamo alla formattazione del 
disco. Tutti coloro che hanno un 
floppy disk sanno di certo che per 
formai tare un disco si impartisce il 
comando: 

OPEN 1 18,1 5f'N0: nome disco, ID" 
CLOSE 15 

in cui “ID" è un identificatore for- 
mato da due lertere. Saprete anche, 
per esperienza, che non è possibile u- 
tili zzare simboli semi- grafi ci. 

Esiste però un sistema per utilizzar- 
li. ed é il seguente: 

OPEN l5,fi,15/'NO:nome disco" f 
CHR5(34)+'\1D" 

CLOSE 15 

in cui. al posto dei caratteri alfabe- 
tici 'ID“, inserirete, magari, due aio- 
ricini {Shift + “S"). 

Fate molta attenzione al punto in 
cui viene inserita la virgola, pena il 
non funzionamento del (lucchetto. 
Con questo sistema potrete usare 
qualsivoglia segno grafico della ta- 
stiera dd computer in modo da “per- 
sonal izza r e" le directory. 

A proposito di formattazione, ri- 
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cordiamo che ve uè sono due diversi 
tipi; quella lunga’ e quella "corta”, 

La formattazione "lunga” vale a 
dire il famigerato "NEW: nome di» 
sco.ID" si rende necessaria soliamo 
quando si formatta un nuovo disco. 

Quando invece si tratta di "rifor- 
mala re". ovvero di cancellare un di- 
sco già formanato, é sufficiente dare 
il comando ' NEW: nome disco e ba- 
sta il disk drive ronzerà per qualche 
istante e dopo un paio di secondi po- 
trete leggere la director} compieta- 
niente vuota, con un notevole rispar- 
mio di tempo e di logorio del drive. 

4; Cambio nome disco 

Il programma in oggetto e talmente 
semplice che non merita commenti. 
E' ovvio che si limita a modificare 
soltanto il nome del floppy: tutti i file 
ivi presenti rimangono rigorosamen- 
te inalterati. 


5; ID con cinque caratteri 

Sapevate che e possibile assegnare, 
come identificatore, sino ad un mas- 
si modi cinque caratteri alla ' testata" 
della directory? 

Sarà quindi possibile, con questo 
listatino, personalizzarla con "qual- 
cosa" che identifichi inequivocabil- 
mente i vostri dischi, utilizzando un 
ID come Tino 1 ' o "Roby" o "StelT o 
quello che preferite, 

6: Proteggi Director) 

Quando si carica in memoria la di- 
rectory con il comando LOAD ’5 .8 
(e poi LIST), la stampa sullo schermo 
avviene con lo stesso sistema con cui 
vengono listati ì programmi Basic. 

Ciascuna riga Basic viene infatti 
memorizzata nel computer con uno 
zero finale, e la fine del programma 
viene indicata con altri due zeri. 

Quando viene chiamata la routine 
di LIST, questa visualizza le singole 
righe, andando a capo quando in- 
contra uno zero e la visualizzazione 
si interrompe del tutto quando il 
computer incontra i famosi tre zeri 
posti in successione. 


Il compito che svolge il programma 
proposto è quello di "scrivere” tre ze- 
ri in un punto della traccia 18 del di- 
scordo ve non possiamo 'disturbare" 
la directory) in modo che. imparten- 
do LIST, il computer incontra i tre 
zeri, crede che la directory finisca li e 
ne interrompe la visualizzazione. 

Potrete così impedire la lettura dei 
file contenuti sul disco e Lunico mo- 
do che avrà il malcapitato ficcanaso 
di utilizzarli sarà quello di caricare 
alla cieca il primo file mediante un 
LOAD^&l. 

Voi. naturalmente, provvede rete a 
mettere Come primo "oggetto" del di- 
sco un file sequenziale oppure, me- 
glio, un autoboot che impedirà ogni 
ulteriore accesso aM’denco dei pro- 
gram mi mediante il blocco del ta- 
sto RUN/STOP, 

Non sapete come si fa a bloccare il 
unto di RI 'N STOP del C M^iele 
proprio una frana, ragazzi. Provate 
con POR E 808,239. E come si fa a tor- 
nare alio stato normale? Ma con P(> 
KE 808,237 perbacco! 

Naturalmente se lutilizzatore ha 
familiarità con i monitor e con il dri- 
ve. si renderà ben presto conto di co- 
me deve fare per leggere la directory 
malgrado la protezione descritta, 

7: Proteggendo.*, 

A proposito di protezioni: uno dei 
primi tipi di protezione utilizzati fino 
a qualche anno fa. prima dell'avven- 
to dei copiatori copiatutto, era il 
seguente. 

Come avrete notato nel leggere la 
directory, sulla prima riga dopo il no- 
me del disco e le due lettere che com- 
pongono HD vi sono altre due lette- 
re. normalmente “ A2\ denominate 
"identificatore di formato" 

Ogni computer, o meglio, ogni dri- 
ve, formatta i suoi dischi in modo di- 
verso. Il drive 1541 utilizza, appunto, 
il formato AZ Vale a dire che il disk 
drive può leggere e scrivere su dischi 
che utilizzino questo formato. 

il disk drive 1541 ha anche la possi- 
bilità di leggere dischi formattati coti 
altri disk drive, come il 4040 della 
Commodore, ma non può scrivere su 
questi dischi. 


Se. intani, si tenta comunque dì 

scrivere su dischi dotati di identifica- 
tore di formato diverso da A2, si ottie- 
ne il segnale di errore 73J30S 
NHS MATCH.! 8.00, 

I primi copiatori apparsi sul merca- 
to cominciavano sempre a copiare a 
partire dalla traccia 18, trascurando 
il fatto che il disk drive, prima di scri- 
vere qualsiasi "cosa” su disco, effet- 
tua SEMPRE un controllo sul suo 
formato. 

I primi copiatori, quindi, copiava- 
no la traccia 18, ma quando tentava- 
no di trascrivere la traccia successiva, 
il disk drive si bloccava irrimediabil- 
mente segnalando Terrore. 

* ■ i 

II sistema descritto non ha più al- 
cun valore come protezione poiché i 
moderni copiatori apparsi di recente 
sul mercato sono oramai sofisticatis- 
simi, Può, comunque, rivelarsi molto 
utile per evitare dì scrivere qualcosa 
su un disco che vogliamo proteggere 
da so vra se pitture. 

11 programma pubblicato sene, ap- 
punto, a trasformare il formato A2 in 
un formato diverso, e funziona come 
un blocco contro la scrittura. Per 
‘ sbloccare" il disco, e renderlo nuo- 
vamente accessibile alla scrittura di 
nuovi file o alla cancellazione di 
quelli contenuti, bisogna ricorrere ad 
un artifizio particolare: "raggirare’ il 
disk drive e, col comando M-W 
(memory-write), inserire nella sua 
memoria il formato “A2’\ facendogli 
credere dì avergli “dato in pasto" un 
dischetto del tutto normale. 

A questo punto diventa facile ripor- 
tare Findicatore di formalo allo stato 
originale, e il gioco è fatto. 

Una protezione che questo sistema 
può garantirvi consiste nel fatto che, 
anche se con un copiatore sarà sem- 
pre possibile duplicare il vostro di- 
schetto. quasi nessuno sarà in grado 
di cancellare il vostro nome dallo 
stesso disco. E’ infatti impossibile ac- 
cedere alla scrittura sul disco (e sulle 
copie che ne verranno fatte!). 

Inoltre il disco rimane apparente- 
mente del tutto normale, dato che 
findicatore di formato A2 continua 
ad apparire regolarmente sulla testa- 
ta (header) della directory. Il che. per 
un sistema che utilizza poco più di u- 
na decina di righe di Basic, non c 
poco. 
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80 


90 


100 


110 

1E0 

90000 

30010 

30000 

30030 

30040 

30090 

30050 

30070 

30080 

30090 

30100 

30110 

30130 

30130 

30140 

30150 

30150 

30170 

30180 

30190 

30800 

30810 


RZtt *** LETTURA DIRECTORY 

Dlh NFSC144) , F1SC144) ; REH 
ARRAYS PER IL NOME DEI FILE 
S 

SP$-"”:FOR 1*1 IO 16 :5PS=5P 
S+CHRST 96) : NEXT 

REM QUI UA IL UQSTRO PRUGR 
AtlMA 

60SUB 30030: REH LETTURA D 
ISCQ 

REH QUANDO H 1 TORNEA ’ DALLA 
ROUTINE 

REH NT CONTERRÀ 1 IL NUMERO 
TOTALE DEI FILES LETTI 
REM NFitDA 1 A NI) IL NOME 
DEI FILES 

REM FTSCUA 1 A NT) 1 FORMA 
TI DEI FILES CPRU/5EU/REL/U 
5K/UEL) 

END 


30880 

30830 

30840 

30850 

30860 

30870 

30880 

30890 

30300 

30310 

30380 

30330 


80 

30 

40 

30000 

30010 


REn LETTURA NOME DEL DISCO 30000 

# 

* 

OPEN l,fi,0,”$” 30010 

FOR 3“i TU 33 

□ti #1 , US : NOS-NDS+U» 30020 

NEXT : CLQSE 1 

PRIMI "LCLEARjNQnE DEL DISCO 30030 
; ”N0£ 

30040 


REM LETTURA NONE FILES DEL 
DISCCJ 

■* 

■ 

OPEN 1, 8,0, ”5" 

SET #i f W$:GET *1 , US;6QSUE 3 
0830 

BOSUB 30830: 1F FL-1 THEN 30 
180 

NT-NI+1 :MKSCNT>-NFtt: FT*tn)- 
FTS 

PRINTNFS; LEFTStSPS, 16-LENCN 
FS)) ìFT# 

OPTO 30140 
CLOSE 1 

RETURN 

# 

■H 

REM ROUTINE PER LETTURA NU 


30050 

30060 

30070 

30060 

30090 

30100 

30110 

30180 

30130 

30140 

100 


110 

160 


MI F1LE5 

» 

» 

NFS" “ ” : FOR 1-1 TO 4: GEI #1, 
US: NEXT 

□ET *1,US:IF US-"" THEN FL- 
1: RETURN 

Il U)S< > UHRSK341 THEN 30240 
GET #1 ,US 

IF U$-CHR$C34> THEN 302S0 

NFS-NFS+US : GOTD 30260 

GET #1,US:IF US-CHRSC32) TH 

EN 30290 

FTS-UIS 

GET #1,U£:FT$-FT$+US:GET #1 

,US: FTS-FTS+WS 

GET # 1 , US : I F USO"” THEN 30 

320 

RETURN 

REM QUI Ufi IL UOSTRO PROGR 
ANNA 

GOSUB 30000 
END 

■fi 

REH SUBACUTI NE LETTURA DIR 
ECTORy 

REM CSENZA UTILIZZO flEflORI 
A > 

OPEN 1 ,S, 0, ”$";GET «1,U$:GE 
T #1,U$ 

GET # 1 , Y$ : GET #1 , US: PRINTUA 
LCYS); 

FOR X-0 TO 27: GET #1,U$:PR1 
NTUS; : NEXT : FRI NT 
IF ST-64 THEN 30130 
GET #1 , US; GET #1,W$ 

GET #1 , LOS : GET #1,H1S 
LOS-LOS+CHRSC0) : HIS-HIS+CHR 
$C0> 

PRlNTf=lSCCLO$l+2S6*ftSCCHIS5 ; 

FOR X-0 TO 27: GET #1,W$ 

PRINTUS; : NEXT: PRIMI 

GOTO 30050 

CLOSE 1 

RETURN 

REM CONTROLLO SE IL DISCO 
E’ PROTETTO DALL’ETICHETTA 
CONTRO LA SCRITTURA 
REh CURITE-PROTECT TAB ON) 
REM SE L’ERRORE E’ IL i?6, 
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DELLE GIUBBE ROSSE 



Una vera esperienza di vita per i ragazzi/e oltre i 10 anni 
Abbinare lo studio della Lingua Inglese, al contatto di una natura incontaminata 
Una vacanza-studio unica ed indimenticabile, in uno scenario che non ha confronti. 




Questo tipo di vacanza e 
indirizzato sia ai principianti, sia 
a coloro che hanno già 
maturato una conoscenza della 
Lingua Inglese, ma il 
denominatore comune è il reale 
contatto con la natura. 

* Un viaggio di 19 giorni 
attraverso la Provincia 
deH Qntano a bordo di un 
“Super Van" da 15 posti, con 
aria condizionata e stereo 
System, con I assistenza di 
personale qualificato. 

Ogni 10 partecipanti ci sono 4 
persone di assistenza. 

Le attività standard includono: 

* partecipazione alla vita di * 
campeggio, canoa, trackmg, 
pesca, white-water rafting, 
ginnastica, nuoto e studio della 
Lingua Inglese. 

Quest ultimo aspetto sarà curato 
da insegnanti specializzati dello 
SHENKER IMSTITUTE QF 
E IM G LI SH , con due ore di 
lezione al giorno, seguendo il 
METODO SANDWICH di 
GEORGE SHENKER 


• Viaggio Andata/ Ri torno 

M I L ANOrr 0 RONT O in classe 
turistica. 

» Tre pasti ai giorno dalla 1 a 
colazione del secondo giorno, al 
lunch del 17 giorno * 

• Fult-Day Immersion di Lingua 
Inglese con personale 
SHENKER piu 2 ore al giorno di 
corso intensivo, 

• Materiale audio-didattico peri' 
Corso comprendente; 

* Walkman n 

* Cassette 

‘ Libri di testo e work book 

• Assicurazione completa 
EUROPE-ASSISTANCE. 

• Pernottamenti in hotel di 
categoria superiore e in 
Campeggi nei “NATIONAL 
PARKS™. 

• Tutte le tasse d'iscrizione, 
attrezzatura da pesca 

* canna da pesca con mulinello 

* licenza di pesca 

! costi di noleggio del Super 
Van e tutti i costi annessi: 

* benzina 

* autostrade con pedaggio 


Il programma si divide in 4 diversi turni a partire dall'ultima settimana di giugno 

Prenotazioni e informazioni presso: 



SYSTEMS - Viale Famagosta, 75 (MI) - Tel. 02/8467348/9 

ore ufficio - Sìg. Tidone 
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ALLORA L 1 ETICHETTA C’£M 

°i 

■fi 

OPEN 15, 0, 15, 11 10": OPEN 6,6, 

0, "tr 

PRINTttlS, "Ul B 0 1B 0” 
PRINIttlS, 4I B~P B 0" 

PR 1 MTttl5 , "UP B 0 10 0” 
INPUT# 15 , EX , E1S: CLOSE 0tCLO 

SE 15 

# 

RM$=”R1MU0UERE L’ETICHETTA 
PER CONSENTIRE L’ACCESSO 
AL DISCO” 

IF E 1-26 THEN FRI NT RM$ 

REM CAMBIO NOME DISCO 

■■■ 

REM LEGGE IL NOME DEL DISC 
0 

OPEN 15, B, 1S, "IO" 

OPEN S.B.B, 

PRINT#15, ’’U1 B 0 1B 0” 
PRINT#15, "B-P B 144” 

DNS*" ” : FOR Y-l IO 16: X$-”” 

GET #B,X$:IF XS-CHRSC160) T 

HEN 200 

DNS-DNS+XS 

NEXTY 


REM CHIEDE NUOUO NOME £ LG 
FORMATTA 

PRINT”CCL£ARDC2 OOUININDME A 
TTUALE DEL DISCO: “ ; DNS 
INPUT ”C 2 DOUN1NUDUO NDME D 
EL DISCO: ”;NN$ 

IF NN5*=" M THEN NNS-DNS 
IF LENCNNSX 16 THEN NNS-NNS 
+CHRSC 160) : GOTO 270 
IF LENCON$)> 16 THEN NN$“LEF 
TSCNNS , 16) 


REM SCRIUE NUOUO NOME SUL 
DISCO 

PRINTH15, "B-P B 144” 
PRINT#B, NN$ ; : REM PUNTO E U 
IRGOLA! 

PRINT#15 , “B-P B 0” 

PR I NT # 15 , ”U2 0 0 1B 0" 


360 CLOSE B 
370 : 

300 : 

330 REM CONTROLLO ERRORI 
400 INPUT#15,E1,E1$,E2,E3 
410 PR INT"L2 DOUIN3 ” ; E1 ; ”, ” ; E1S; 

420 FRI NT# 15 ‘‘10’’: CLOSE 15 
430 PRINT”C2 DQWN30RA IL OI5CO 
SI CHIAMA: ”;NNS 
440 END 
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2S0 

300 
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330 

340 

350 
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3B0 


REM CAMBIO IO DEL DJ SCO 

* 

* 

REM LEGGE LA UECCHIA ID 
OPEN 15,3,15, ”10” 

OPEN B, 8, 0 , 

PR1NT#15, "Ul B 0 16 0” 

PR I NT# 15 , "B-P B 1G2" 

GET #8 , 1 1$ : I F 11$-”” THEN 
1S-CHRSC0) 

GET #0 , 1 2$ : I F 12$-"" THEN 
2$-CHR$C0) 


REM CHIEDE NUOUA ID £ LA F 
ORMATTA 

PR1NT"CCL£ARDC2 DOUN11D ATT 
UALE DEL DISCO: ”;U$;I2$ 
INPUT " C2 DOUNINUOUA ID DEL 
DISCO: ” ; I □$ 

IF ID$-”” THEN ID5-I 1$+I2$ 
IF LENC ID$)>5 THEN NN$-LEFT 
$C I □$ , 5 ) 


REM SCRIUE NUOUA ID SUL DI 
SCO 

PRINT#15, "B-P 8 162” 

PRINTttB , 10$; : REM PUNTO E U 
IRGOLA! 

PRINT#15, "B-P B 0” 

PRINT#15 , ”U2 B 0 1B 0” 

CLOSE B 


REM CONTROLLO ERRORI 
INPUT#15,E1,E1$,E2.E3 
PRI NT ’’t 2 DOWN 3 " ; E 1 ; ”, ” ; E 1 $ ; 

» M.pp. 11 « * F3 

i , , | » 1 * 
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390 PRINT#15, ” 10" : CLOSE 15 
400 PR1NT”C2 DGUN3LA NUOUA ID □ 
RA E ’ : ” ; I D$ 

410 END 


420 PRINT#15, "10": CLOSE 15:RETU 
RN 
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REM "CANCELLAZIONE” DIRECT 

DRY 

* 

« 

PR INI "C CLEAR3 LE Dumi CANGE 
LLAZIDNE/RI PRISTINO DI RECTO 

RY” 

* 

* 

REM LETTURA FORMATO DISCO 
OPEN 15,0,15, **I0” 

OPEN 0,0,0, 

PRINT#15,”U1 0 0 10 0” 
PRINTttlS, ”B-P B 165” 

GET #B,I1S:IF 11$-”” THEN I 
1S-CHRSC01 

GET #0, 12$ : IF 12$-”” THEN I 
2S-CHRSC0) 

IF I1S-CHRSC03 AND I2S-CHRS 
(0) THEN GOTO 320 

É 

-li 

REM CAMBIAMENTO FORMATO 
PRINTttlS t ”B-P Q 165” 

PR I NTttS t CHR$ C 0 } ; CHRS C 0 ) ; : RE 
M PUNTO E UIRGOLA! 

PRINT#15, ”B-P B 0” 

PRINT#15 f *ua a 0 1B 0“ 

CLOSE BiBOSUB 400 
PRINT”CE QQUIN3LA DIRECTORY 
NON ESISTE PIU ' I " ; END 

i 

■ 

REM RIPRISTINO FORMATO 
PRINT#15, "B-P 8 165” 
PRINTttB, ”A2” ; : REM PUNTO E 
UIRGOLA! 

PR1NTW15, ”B-P B 0” 

PRINT#1S, ”U2 0 0 18 0” 

CLOSE B : GOSUB 400 
PRINT"C2 DOUlNDLA DIRECTORY 
E' STATA RIPRISTINATA! END 


300 : 

390 REM CONTROLLO CANALE DI ER 
RORE 

400 INPUT#15,E1,E1$,E2,E3 

410 PRINT”C2 DO0N3”;E1; ”, ”;E1$; 
■> p,ra, ■ '■ . ir "a 

i i *- t ' , t • 
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300 

390 

400 

410 

420 

430 

440 


REM PROTEZIONE CONTRO LA S 
TR I TTURA 

PRINT "CCLEARDPROTEZIONE/SPR 
OTEZIONE DALLA SCRITTURA” 

9 

REM LEGGE IL FORMATO 
□PEN 15 , B, 15, ”10” 

OPEN 0,0,8, 

PRINT#15 , ”U1 8 0 10 0” 
PRINT#15, ”B-P 0 2” 

GET #B,A$:iF A$-"” THEN A$- 
CHRSC03 

IF A$< > ’’ A ” THEN 310 

* 

REM CAMBIA IL FORMATO IN " 


PRINT#15, "Q-P S 2” 

PRINT#B , ”E2” j : REM PUNTO E 
UIRGOLA! 

PRINTK15, "B-P 0 0” 

PRINT#15, ”U2 0 0 18 0" 

CLOSE 0: GOSUB 410 

PRINT ”£ DQUND ORA Si PUÒ’ SOL 

TANTO LEGGERE IL DISCO!” 

END 

9 ' 

REM RIPRISTINA IL FORMATO 

” AB” 

PRINT#15, "B-P B 2” 

PRINT#0, "AB”; : REM PUNTO £ 
UIRGDLA! 

PRINT#15, "B-P B 0" 

PRINT#15, "M-UI" ; CHR$C 1 1 ; CHR$ 
C 1 3 ; CHRSC 1 > ; CHR$CG5> . 
PR1NT#15, ”U2 B 0 1B 0” 

CLOSE B: GOSUB 410 
PRINT”! DOUIN DORA SI PUÒ’ UTI 
LIZZARE NORMALMENTE IL DI 
SCO ! ” 

END 

* 

■ 

REM CONTROLLO CANALE DI ER 
RORE 

INPUT#15,E1,E1$,E2,E3 
PRINT" C2 OOUND” ;E1; ”,”;E1$; 

»■ »• . cp. ** » . pp 

FRINTttls] ”I0”:CLDSE 15 
RETURN 
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QUALSIASI COMPUTER 


(Chissà quante volte vi sarà capita- 
to; un attimo di disattenzione, un ti- 
tolo dimenticato, un dito che sbaglia 
a battere il tasto, un controllo manca- 
to ed ecco che il vostro prezioso Ole 
su disco viene annullato, distrutto, 
annichililo. A questo punto non c'è 
più nulla da fare: il comando 
SCRÀTCH dà l’addio definitivo al fi- 
le, Che fare? Tutto è perduto? 

No; sciogliete il nodo scorsoio che 
avevate stretto attorno al colio, strap- 
pate la lettera che conteneva laddio 
struggente ai familiari e leggete que- 
sto articolo. 


File recuperato 
mezzo salvato 


Un programma che provvede a far 
tornare il sorriso suite labbra ai 

più distratti 


dì Paulo Agosti ili 


Come ragiona 
il disk drive 

Per prima cosa sarà opportuno ve- 
dere come il disk drive esegue il co- 
mando SCRATCH, per comprende- 
re cosa fare in casi del genere. Nella 
directory del disco vengono posti, ad 
intervalli regolari di 32 byte, i nomi 
dei vari file. Più esattamente i) nome 
di ogni Ole è preceduto da un byte 
che indica il tipo di file di cui si tratta, 
e da due byte che indicano a quale 
traccia e settore si trova il primo bloc- 
co dì dati che compongono il file 
stesso. 

Esaminiamo più da vicino il byte 
che indica il TIPO di file. Come tutti 
(?) certamente saprete, un byte è com- 
posto da 8 bit. 

Nel byte indicante il tipo dì file ogni 
singolo bit ha una sua funzione, e più 
esattamente: 

■ Bit numerati daO a 3 : indicano il ti- 
po di file, e cioè: 


%0000-DEL 

%0001=SEQ 

%0010-PRG 

%oou=usr 

*0100- REL 

Ricordiamo che in lunguaggìo tec- 
nico, i numeri preceduti dal segno % 
stanno ad indicare numeri binari. In 
questo caso, visto che il numero bi- 
nario viene indicato con sole quattro 
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cifre, si parla di NIBBLE, cioè di 
mezzo byte E coni sponde n ti numeri 
decimali e il relativo significato 
sono: 

0=file cancellato 
lutile sequenziale 
2 ^ fi le tipo program ma 

3 - ti le user 

4- file relativo 

Si noti inoltre (e vedremo poi fi Di- 
porta nz a di quanto stiamo per dire) 
che l'indicazione di file cancellato 
(DEL) impedisce di sapere la tipolo- 
gia cui apparteneva il file PREMA 
della cancellazione. 

* bit 4 e 5 : sono bit Illegali" e veniva- 
no talvolta utilizzati in passato perla 
protezione di file. 

■ bit 6: ha La funzione di segnalare se 
un file è protetto contro lo SCRATCH. 
Se questo bit è “settato", il file non 
può più veni re cancellato dal coman- 
do SCRATCH. In questo caso sulla 
Directory appare, vicino ai tipo di 
programma, anche il simbolo 

* bit 7: Se il bit è “settato" il file è stato 
regolarmente chiuso. Se invece il file 
è rimasto per una qualche ragione 
'aperto", vale a dire se la BAM, 
(Block Avari ab ili tv Map, o Mappa 
della Disponibilità dei Blocchi) non 
è stata aggiornata, il file viene con- 
trassegnato col simbolo vicino al 
tipo di programma, come forse vi sa- 
rà capitato spesso di vedere. Tale eve- 
nienza capita se aprite un file e di- 
menticate di chiuderlo oppure se, 
mentre registrate un programma, a- 
prue lo sportello del drive, e in altre 
circostanze quasi sempre legate a 
condizioni di errore. 

Vediamo qualche esempio tra i 
più frequenti: 

% 100000 10 (he*: $82, dee, *130): file 
di tipo “PRO" regol arme nte chiuso 
%1 10000 IO (hex: SO, dee. #194): file 
di tipo PRG(" protetto 

VMIOOO010 (hexi SOI dee. #002): file 
di tipo ERG*" “aperto" 

% 10000001 (hex: $81, dee. #129); file 
di tipo "SEQ regolare 

%O0O00000 (hex: $00. dee. #000): 
file cancellato 

%10O0OO00 (hex: $80. dee, #128): file 


illegale. Benché si tratti di un file 
cancellato, appare comunque nella 
directory con r indicazione "DEL" 
("deleteri A rea non può venire cari- 
cato 

%1 1000000 (hex: SCO, dee *192): file 
illegale protetto di tipo “DElX" 

A questo punto avrete capito che il 
DOS (acronimo dì Disk Operati ng 
System, o Sistema Operativo del Di- 
sco) per cancellare il file non fa altro 
che cambiare il bit che indica il tipo 
di file in uno zero. Se salviamo su di- 
sco un nuovo file, il DOS controllerà 
quel particolare byte, e se questo è 
posto a zero, il DOS scriverà il nuovo 
file sopra quello vecchio. In questo 
caso è impossibile 'recuperare" il file 
precede me mente cancellato. 


Ma se su quel disco non abbiamo 
scritto mjll'aUro, il sistema per "resu- 
scitare" il file cancellato esiste se nz al- 
tro: basterà riportare quel famoso 
byte al valore originale e il file can- 
cellato riapparirà come per incanto 
sulla directory. Però a questo punto il 
salvataggio è completo *oLi melile ,i 
metà: per evitare problemi bisogna 
dare il comando "VALI DATE", che 
aggiornerà la BAM. (Block Alloca- 
tion Map, o Mappa dei blocchi di- 
sponibili), indicando come "occupa- 
ti" i blocchi in cui si trova il nostro fi- 
le redivivo, 

11 programma che effettua questo 
"salvataggio" può essere scrino in 
due modi. IL primo è quello che io de- 
finisco "Io Tarzan - Tu Jane", vale a 
dire il programma chiede il tìtolo del 
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file da recuperare, lo cerea nella di- 
reetorv e lo recupera. 

Il perché lo ritenga un po' primitivo 
è presto spiegato in genere sr cancel- 
lano Ilio preziosi quando si e dimen- 
ticato il nome del file Quindi un prò 
grarnma che chiede il nome del file è 
un co ni rose uso e generai metile porta 
alla conclusione logica del PILE 
NOT FOUND" ilo file non trovalo, 
come direbbe Tar/an!) 

Per questa ragione ho scelto di scri- 
vere il programma nel secondo modo 
possibile, ow crossi a effettuando u no 
screening (visualizzazione? di lutti i 
file presenti nella directory passan- 
dola tutu in rassegna, e si decide file 
per file se salvarlo o meno. 

F stata inserita nel programma la 
possibilità di "proteggere r file dal- 
l'azione dello St RATC’H. m manie- 
ra che quelli più preziosi non verran- 
no piu cancellati in futuro. Per can- 
cellarli, una volta protetti, vi restano 
solo due modi: o usare nuovamente il 
programma pubblicato oppure rifor- 
mattare il dischetto... 

Il programma 

C opiale con la massima cura il li- 
staio dt queste pagane e. preparato mi 
dischetto contenente file poco im- 
portuni i. inseritelo nel drive e daie 
il RUM. 


Sullo schermii appariranno, uno 
alla volta, i nomi dei file presenti che 
siano "visibìli" alla directory oppure 
mi Fate attenzione alla scritta DEL. 
quelli sono i file canoe Ila ti che potre- 
te eventualmente recuperare 

Ne! caso non vogliate modificare lo 
staio dei file, premete la barra spazia- 
trice, il Tasto Return o qualunque al- 
tro tasto, per proseguire col file suc- 
cessivo. Per modificare lo stato dei fi- 
le. premete 1 tasti 3 , 2 , 3 oppu- 
re 4 ; 

1 Recupera i file di tipo DEL 

? Cancella QUALUNQUE tipo di 
file, anche quelli che è impossibile 
cancellare in altro modo, come i file 
che hanno come nome una virgola o 
le virgolette (esìstono, esistono, e se 
segu i re le Coni mod ore C orti pu te r 
C lub imparerete anche vili a registra- 
re file dotandoli di nomi strani. 

3 Protegge ogni tipo di file da can- 
ee Ila/ ioni involontarie fina anche 
volontarie), 

4 t onsenlira di sproteggere i file 
proietti nel modo 3. 

Noterete che sullo schermo appare 
(oltre Lil nome e tipo di file e al nume- 
ro di blocchi che occupa sul disco) 
anche un provvidenziale f/S". 

Si tratta della TRAC CIA e del SET- 
TORI: dove il file inizia, e il dato può 
esservi di aiuto per esaminare il disco 


in dettaglio mediante altri program- 
mi di utility. 

Conclusioni 

Il programma presentalo deve esser 
considerato una notevole utility da 
tenere sempre a portata di mano Di- 
gitatelo con gran cura e provatelo su 
un disco "cavia" da sottoporre a tutte 
le torture cancellando, recuperando, 
proteggendo c sproteggendo i singoli 
file. 

Non abbreviale il comando 
PRINT# con il punto di domanda 
(7*1 per evitare Syntux Ermr. 

Desiderando recuperane un file 
cancellato e indispensabile comuni- 
care a! drive il tipo di file. Come ab- 
biamo detto al l'inizio, infatti, non ri- 
mane traccia di tale informazione 
dopo il comando di Sera teli. Se non 
ricordate il tipo di file provale, in piu 
fasi, ad assegnare t 4 tipi, uno alla 
voi ta b " U sciti" dal p rog r a m m a p» ' i 1 ■ le 
controllare se il file era un program- 
ma Basic oppure un file sequenziale 
di un Word Processor oppure un file 
relativo di un Data Base, 

Se. nonostante tutti i tentativi, non 
riuscite a capire che diavolo tosse, ri- 
prendete la corda messa da parte al- 
bi ni zio dellarfieolo c strofinate so- 
pra. prima del l'uso, molto, mollo 
sapone... 


10 

REM DISK MANAGER 



PROTEGGI " : PRINT"SPAe IO: NES 

£0 

fi 

a 



SUN A MODI FICA" 

100 

PRINTCKKSt, 1473 : GOTO 150 


eaa 

FOR 1-1 TO 40: PRINTCHR$C192 

110 

* 



) ; : NEXT 

160 

GEI **£, PtS>: IP THLN 


£10 

PRIMI” FILE NAME’*mEFTS(.SPS 1 


CHRiB C 0 ) 



, S )-*-■' I YFE‘’ + LEFI"$<SP$, ej + "BL 

130 

RETURN 



OCXS" ; 

140 

fi- 

di 


esca 

PHINTLEFTSCSPS, 

150 

PUR 1-1 10 35: 5Pai-5P5 + CHR5C 

£30 

FOR I-I TU 40: PRINTCHRSC 1S2 


32 j : NEXT 



5 ; : NEXT 

160 

PRINTCHRSr 147) ; 5P0C£^ ; " 

DISK 

£40 

PRINTCHRSt iy ) : FOR I-I TO 14 


FILE UTILITY tìY PAOLD 

ABQ5 


: PR I N ICHRSC 171 ; : NEXT 


TINI*' 


eso 

FOR 1“1 TO U: PPS-FPS + CHk*!. 1 

170 

POR 1-1 TO 40: PRINTCHH51 15£ 


7) : NEXT 


) ; : NEX f 


£60 

PS-CHRSC 19) : FOR 1-1 1U tì:Pib 

1 60 

PR1 NT ”1 : RECUPERA . 

£: C 


«PS+CHRSC 17) : NEXT : PS-PS+CHR 


ANCELLA" 



SOS) | 

150 

PR1N1-3; PROTEGGI. 

4; 5 

£70 

ita 

fi» 
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2B0 RED DIRECTORY AMPLIATA 
290 OPEN 15,0, 15, ”10”: OPEN 2,8, 
8, ” fi ” ; 5 - 1 

300 PRINTfilb , "Ul £ 0 18 ; 5 

310 PRINTfilb, "B-P 8 0” 

380 GOSUB 120:T-ASC<AS) 

330 GOSUB 120:S1=ASCC AS) 

340 FOR 1-0 IO 7 

350 PRINTfilb, ”B-F 8 ";8+38-l 

350 GOSUB 120:Fr=ASC<AS) 

370 TY=FT:FT»CFT3 AND 15 
380 IF FT-0 THEN FTS-”DEL" 

390 IF FT=1 THEN FT$="5EQ” 

400 IF FT=2 THEN FTS=”PRG” 

410 IF FT-3 THEN FTS-”U5R" 

420 IF FT-4 THEN F Ts- ”REL” 

430 IF CTY AND 12B1-0 ANO FT< 
>0 THEN FTS-FTS-»-"*’* 

440 IF TY AND 54 THEN FTS-F 
TS+"< ” 

450 PRINTfilb, "B-P 8 3-38*1 

460 GOSUB 120: 1 T-ASC CASI : IF I ]> 

0 THEN 590 

470 GQ5UB 120: I5-A5CCAS1 

480 ITS-STKSC II 1 : I TS-RlGHlSCIlS 

,LEN£ITS)-1): I TS-RIGHTSC "00 
”+ITS, 8) 

490 ISS-5TRSC 151 : ISS-RIGHlSt 15$ 
, LENC ISSl-il: ISS-RIGHTSC "00 
"+ISS, 2) 

500 NFS-"" : FOR J-l TO 15: GOSUB 
180 

510 IF CASOCHRSC01 1 AND t. A$< > L 
HKSC160D) THEN NFS-NFS+AS 
580 NEXTJ 

530 PRINTfilb, "B-P 2 ”;30+38*I 
540 GOSUB 180 : B T-ASC C AS 1 
550 GOSUB 180: BT-ASCt AS1-855+BI 
560 PRINTPS; SPS; P$; LEFTSCNFS+SP 
S, 10) ; LLFTSC FTS+SPS , 7 ) ; 

570 PRINTLEFTSCSTRSCBTl+SPS.e); 

1 TS ; "i ; 1SS 
580 GOSUB 640 
530 NEXTI 

600 IF T-1B AND SI < 81 THEN 8-51 
: BOTO 300 

610 CLOSE 2: PRINTPS; SPS; PS; "ATT 
ENOERE PREGO - CONUAL I DA 01 
SCO " 


520 PRINTfilb . "U0" : CLOSE 15: END 
530 REfl ROUTINE DI RECUPERO FI 
LE 

540 PRINTPS; PPS; SPS; PS; PP4; " PHE 
FIERE UN TASTO” 

650 GET AS: IF AS-”" THEN 650 
660 PRINTPS; PPS; SPS 
670 IF ASO”l" THEN 730 
680 PRINTPS; PPS; "RECUPERO FILE 
CANCELLATO” 

630 PR I NTPS ; PPS ; CHRS ( 17 1 ; " T I PO 
DI FILE: 5EQ / PRG / U3R / 
REL *■ 

700 GET R$ : I F RB-"" THEN 700 
710 IF RIO"S" AND RSO'T" AND 
R$< > ”U " AND RS< > "H" THEN 70 
0 

720 PRINTPS; PPS; CHRSC 17 1 ; SPS 

730 IF RS- "S ’’ f HEN C-l 

740 IF RS-"H" THEN C-2 

750 IF RS-"U” THEN C-3 

760 IF RS="K“ THEN C-4 

770 TY=128 + C : GOTO 940 

7B0 : 

790 IF ASO ”2" THEN B30 
800 PKINrPS; PPS; SPS ; PS; PPS; "CAN 
CELLA2 1 ONE FILE" 

B10 TY-0 : BOTO 940 
880 : 

B30 IF AS<> "3“ THEN QB0 
040 IF TY AND 64 THEN RETURN 
850 PRINTPS; PPS; SPS; PS; PPS; "PRU 
TEZIONE FILE” 

B60 TY-TY OR 64: GOTO 940 
870 : 

BB0 IF ASO ”4” THEN RETURN 
890 IF CTY AND 641-0 THEN RETUR 
N 

300 TY-CTY AND 8551-64 
310 PRINTPS ; PPS ; SPS ; PS ; PPS ; "5PR 
UTEZIONE FILE" 

320 : 

330 REM ROUTINE DI RISCHI TTURA 
SU DISCO 

940 PRINTfilb, "B-P 2 " ; 8+32*1 
950 PRINTfip, CHRS CTY ) ; 

960 PRINTfilb, "B-P 2 0” 

970 PRINTfilb, ”U2 2 0 18 ";S:PRI 
NTPS; PPS; SPS; : RETURN 


32 - nomrr, odore Computer Club 




Software House 

la N I U .- 1 A 

PUÒ ESSERE WlA TUA 

MIGOORE ^ /AMIGA 

dlstrilHitore autorizzato 

COMMODORE 

Iscriviti subito aXWamka NI Ut A Club 

A tutti gli acquirenti di un P. C . gamica (2.200.000 + IVA) 

in regalo 2 pacchetti software originali 
e la tessera vAmiga N I U J A CLUB. 

Vasta biblioteca software già disponibile. 



Inoltre la NLWA vi propine biblioteca software per Alari 520/HWQ-S I e per il vostro f./64-t 128: 

Diselli 3*/i * ’/i j partire da j jj ut ubi. j ■ i i ilij ■■ i ■■■■.■ ii lebbb ti ri i nmrrmi i rifcar44 ■ •■l'UHJ 11 *■■■■* i ir ■ ■ ■ ■ i i 


L. LWHt 


SPEIDIMXS CM/t 128: 


il migliore e piu collaudato velocizza toro, copia del disco H anche protetto. in 21 
secondi, legge 1 2n2 blocchi in lo secondi, tasti funzione. hardcopy. comandi a! 

D O S, direni .. 44 ^ i [l BLU ITTI m I ’ * : * * ' ■ Li uj ij ih li i ■ i i tuta i i ■ ■ rii ■ ri niii rrimi ■ l'rmii ri *IB4 i i HH< 144 8 1 ■ ,alB * miiui -■■■ J ■ ••■■■■ ■ ■ • 


L 65.000 


Fasi Lo ad l anridge 
(64/C 128: 


il piu venduto in Italia, semplicissimo da usare, velocizza di 5 volle il tuo drive, 

Utilities varie con reset •> ■ rullila ri ili ni ! ri>r--*i II- 44 II f n lijjj ai — Ifw im ■»■■■■■ #*■■■■*■*’ "■■■■ * rrrr-i-i ■ rr — *84 I8l8i44rife*#44 


L. 35*000 


senza reset 
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tartridge ISFPIC C64 E 
SOPIVV \RE DEL): 

HACKER (artrite: 

HACKER-TAPE: 

OFFERTA: 


trasferisce su disco il 90% del tuo software protetto jjji.LaaB.ij I bui ibi cbbiiji Bilia 1 1 mai 1 1 naiH «**■ L. 50;000 

Casieri sue il W?« del tuo software protetto da nastro a disco e da disco a disco in soli 4 
minuti senza bisogno di conoscenza Linguaggio Màcchina e di compattamento; 
lavora inoltre senza disco di lavoro c può essere Estivata a programma già caricato, 

t2H compatibile (In modo 64).™ ... 1 . rrFrl i. r LBLaiu ■■■.■■ni u aiaia ri rasai araba#-! rrriaiTTr"ÌTr B 844 ^ ** *" 


permette di ricade ila re quakùisi tipo di programma precedentemente trattato con 
HACKI K senza nessun problema di blocchi, leggendo m turbo da discoe scrivendo 

in turbi! au nastro (•1*884 I-LLL.J .4.É.| IJJ.1 i LBBB i i i LLIM i ■ i i l liliali mini ri miirirrmi irmi- ■■■■ 


L. 45.000 


HACKI K + HACKER TAPE 
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FLOPPY DISK: 


di tutte le marche u partire da ,. 


a irrna ra raaaai iTiiiiiTrpa.aaTrì® 118 * 488888 * J.LLS.JJJ 


1.700 d.s.d.d. 


Dii fine ottobre la \IYSA si trasferisce nel 

Nuoto punto di vendita di dettaglio in V. Buceri **4 iSeit*S.<j- MM MttrelH 
\htxmii menti Software. 

Spedizioni in tutta Italia. 

Sconti ai crossisti, club, negozi 

1 prezzi si intendono mlV \ compra e spese di spedr/Uxic escluse. 

Per nridini superiori a L, IfHl.tMHii spese postali gratuite. 


Software House 

N I UJ A 



Via Va Id i magna 54 
P O. BOX r. 83 

20099 Sesto 
San fi invaimi (MI) 
Tel, 02/1440776 
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QUALSIASI COMPUTER 


Una cassaforte su disco 


Come evitare che un vostro programma 
memorizzato su dischetto sia sottoposto 
a copie non autorizzate 


di Giuncarli) IVI ariani 


9 1* O * o O * O > 
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.irticoln é dedicalo .n pos* 
sesson di un qualsiasi computer 
C ommodore, purché provvisto di li- 
ni Ut ii disco. 

Spiegare le ragioni che rendono ne- 
cessaria la proiezione di un program- 
ma è ormai superfluo; contrariamen- 
te a quanto si potrebbe pensare, non 
solo le Software House possono tro- 
varsi nella necessità dì proteggere i 
loro programmi dalle copie abusive, 
ma anche voi potreste desiderare che 
un vostro programma. Imito di suda- 
le ore alla tastiera, non si diffonda,., 
eccessi va me nle. 

U lipo di proiezione che descrivere- 
mo nel presente artìcolo è un po' 
complicato da elìcmi are ma ha il no- 
tevole pregio di rendere indup] [cabi- 
le un dischetto contenente uno o 
piu programmi. 

Esaminando alcuni tipi di prote- 
zione presenti in programmi com- 
merciali. studiandone il comporta- 
mento ed ascoltando ili strani "ru- 
mori" provenienti dal 1541. si arriva 
uè del disco tale che il drive non rie- 
sce a leggerlo correttamente. Questo 
succede, di solilo, con dischetti rovi- 
nati fisicamente, oppure non formai* 
tali o formattali per macchine diver- 
se da quella per cui andrebbero 
usati. 

Un errore su disco può capitare an- 
che acci dentai niente, toccando con 
le mani la sua superficie, riscaldan- 
dolo troppo nd dimenticarlo alla lu- 
ce del sole o magnetizzandolo me- 
dia conclusione che il programma 

deve ' ad un ceno punto, controlla- 
re qualcosa sul disco, magari uno 
speciale dato, e se questo non è pre- 
sente t come nel caso delle copie fini- 


rai il programma si rifiuta di funzio- 
nare. resecando la macchina. 

In effetti non è un dato ciò che vie- 
ne controllato sul dischetto, ma uri 
errore! Tutti i possessori di un'unità a 
dischi dovrebbero sapere che cosa è 
un errore”. 

In pratica vi tratto di una alterazio- 
diame calamite; oppure può essere 
messo di proposito, proprio per v^ ila- 
re la duplicazione. 

La presenza di un errore, infatti, 
riesce ad arrestare t normali pro- 
grammi di copia, rendendo impossi- 
bile {o quasi) la corretta duplicazione 
del floppy 

Esistono vari tipi di errore, tra cui 


quello di se riti ura. di lettura. oppure 
ili ide mi ficaio re. 

I identificatore ( 1 D l di un dischet- 
to e quella stringa di due caratteri da 
fornire all'atto della formai t azione o 
ri (òr mattazióne del dischetto (co- 
ma mio OPLN LXJ 5rN0:diskna- 

medD’ ) e che sene esclusivamente 
al l'unità lloppy perdisi! [venere un di- 
sco da un altro. Ad ogni disco format- 
tato dovrebbe essere assegnala una 
11") diversa* per evitare che l'unità va- 
ila m 'confusione '. danneggiando i 
contenuti del dischetto stesso, 

l identificatore. durante la format- 
tazione. \iene i raschi io su ciascun 
settore di ogni traccia del disco Se ne 
deduce che se riuscissimo a modi fi - 
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NOVITÀ 9 NIWA 

KIT 802 NEW GRAPHIC 

Finalmente la 
tua stampante 

è 1 00% y 

compatibile con tutti i programmi 
di grafica. (Geos 12 - Newsroom - 
Print Shop - Print Master) zz 


Kit di montaggio 
completo di istruzioni 
in italiano 


O.M.A 

Cartridge 


L 80.000 


Non permettere che 
i tuoi programmi originali 


* * 


si rovinino. 


Con O.M.A,, puoi fare 
una copia di sicurezza 
in un unico file (!!) 
(ricassettabile) dei tuo software 
su disco o nastro. 


solo L. 99.000 

(Manuale in italiano) 


Niwa P.O BOX / V. Buozzi 94 - Tel. 02/2475523/2440776 
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carne qualcuno, il drive, durante la 
lettura, cadrà in errore bloccando 
qualsiasi operazione (ira cui la co- 
pia) ottenendo lo scopo prefissato. 

Ovviamente non basta evitare la 
duplicazione, ma si dovrà anche far 
controllare, allo stesso programma, 
la presenza dì tale errore, resettando 
la macchina in ,aso di riscontro 
negativo. 

Vediamo i passi da segui re per crea- 
re un errore di iden li ficaio re terrore 
29): 

I: Formattare un disco nuovo (O 
PEN 1 5,8 J 5* "NO: nome.AA": CLO 
SE 15) 

2: Impartire nuovamente il comando 
di formattazione sullo stesso disco, 
ma con identificatore DIVERSO da 
quello dato in precedenza (esempio: 
Q P E N 2. 8. 1 5 . ' NO : no me XZ Prima 
di premere il tasto Return, appoggia- 
te l’orecchio sul drive. 

3; Questa è la fase più delicata: ascol- 
tando con grande attenzione i rumo- 
ri del drive appena inizia la formatta- 
zione. dovreste avvertire il rumore di 
scatti intervallati fra loro con regola- 
rità: ESTRARRE il dischetto subito 
dopo il secondo scatto, anche se il 
drive continua a girare. 

4: Reset tare (o spegnere e riaccende- 
re) il drive. 

5: Registrare normalmente, sul disco 
"[lattato”, il programma da proteg- 
gere. 


Come funziona la protezione 

Il "trucco" funziona così: format- 
tando la prima volta il disco abbia- 
mo costretto il suo S.O. a scrivere in 
ogni traccia, e in ogni settore, i'identi- 
ficatore ( nell’esempio di prima: ÀA), 

Con il secondo comando di format- 
tazione (identificatore diverso: ZZ) il 
drive tenta di ripetere foperazione 
con il nuovo ID ma, estraendo il di- 
schetto subito dopo il secondo scatto, 
fermeremo la formattazione alla se- 
conda traccia, per cui il nuovo ID ri- 
stillerà trascritto solo sulla prima. 

Un secondo accorgimento 

Otte nula la protezione cont ro la co- 
pi a integrale del dischetto, faremo o- 
ra controllare al programma da pro- 
teggere la presenza di tale anomalia 
in modo da rendere inutile anche la 
copia "parziale'*. 

La routine per controllare l'errore è 
proposta, in Basic, in queste pagine. 
Va inserita all'interno del program- 
ma du proteggere, e non fa altro che 
leggere il primo settore della prima 
traccia del dischetto, controllando lo 
stato del disco. Se non riscontra un 
errore di tipo 29 (Disk ID Mismatch), 
la routine slampa un mt-ssaggio di 
copia illegale c cancella la memoria 
del computer. 

Per verificare quanto assento in 
queste pagine, provate a registrane la 


routine su di un disco normale, non 
"trattato", constaterete che essa non 
funzionerà più a dovere. Non vi sa- 
ranno inconvenienti se, al contrario. 
è registrato su disco formattato 'a 
metà". 

Chi c intenzionato, però, a copiare 
illegalmente il programma, potrebbe 
listarlo, scoprendo (e quindi rimuo- 
vendo! le linee che controllano l'er- 
rore. Bisognerà quindi trovare il mo- 
do di nascondere queste lince, maga- 
ri compilando il programma, oppure 
scrivendo una apposita routine in 
LM, più difficile da identificare, op- 
pure,,, pensateci voi. 

E' da notare che su) dischetto pro- 
tetto si può registrare anche piu di un 
programma, facendo controllare ad 
ognuno di essi la presenza della pro- 
tezione. Si deve avere però làccortez- 
za di lasciare almeno una cinquanti- 
na di blocchi lìberi, per evitare che il 
programma registrato vada a finire 
proprio sulla traccia protetta, 

Le applicazioni intorno a questo ti- 
po di protezione sono infinite e di- 
pendono solo dalla fantasia di chi le 
utilizza. Si potrebbe, ad esempio, 
produrre l’errore in piu di una trac- 
cia, Tacendole poi controllare tutte: 
oppure si potrebbe controllare se esi- 
stono linee che controllano la pre- 
senza dì altre lìnee, che a loro volta.,, 
ALT! Fermiamoci qui, altrimenti va a 
finire che neanche noi saremo più in 
grado di utilizzare il programma che 
abbiamo protetto. 


10 RETI ESEMPIO DI UTILIZZO FRU 
TEZIDNE ERRORE E3 
£0 RETI ROUTINE DA INSERIRE NEL 
PROGRAMMA DA 

30 REM PROTEGGERE CHE UA REGIS 
IRATO POI 

3 E REM SUL DISCO PROTETTO 
40 PR1NTCHRSC 1473 : "ESEMPIO DI 
PROGRAMMA PROTETTO " 

50 GOSUB 100 

60 IF ERR<>£9 THEN PRINT”QUE5T 
A E* UNA COPIA PIRATA! M : REM 
NEW 

70 PR I NI ''TUTTO OK 11 : END 
100 REM ROUTINE CHE CONTROLLA L 
1 ERRORE 


110 REM QUESTA, INSIEME ALLA RI 
GA 60 

lc?0 REM UA INSERITA NEL PROGRAM 
MA DA PROTEGGERE 

130 CLOSE 5 : CLOSE 15 

140 OPEN 15*6,15; REM APRE IL CA 
NALE DI COMANDO COL DISCO 

150 OPEN 5, B, 5, "tt" : REM APRE IL 
CANALE DI COMUNICAZIONE 

155 PRINT#15, ”B-R: ”5 ; 0 ; 1 ; 1 : REM 
LEGGE IL BLOCCO 1 DELLA TRA 
CC I A 1 

160 INPUT#15, ERR,XZS t XZ5 t XZ5:RE 
M LEGGE L * ERRORE 

170 CLOSE 5 : CLOSE 15: RETURN 
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DIRECTORY 


QUALSIASI COMPUTER 

Su disco tutti 
I programmi di CCC 

Sul N.2 di “ Directory ” ìe consuete decine di 
programmi e, soprattutto, succose novità 


ili \k‘ssstndru de Simone 


Inutile diro che fi trizi ali vu ini ripre- 
sa sul numero scorso ha uvuto un e- 
normc successa. 

La novità, stavolta, consiste nel fal- 
lo che, su so Iteci Li /ione dei tenori, u 
puri ìre da questo mese inseriremo sul 
dischetto lutli i listali Basic o i.,M. 
che compaiono sul fascicolo. Su Di- 
rector) N.2, pertanto, irò ve re re I \ T- 
1 1 i listali di Qt lESTO minierò oltre 
ìi TUTTI i listali pubblicali sul nu- 
mero scorso (N.35). 

Allo scopo di risparmiare spaziosi! 
disco, precisiamo che le istruzioni 
dei programmi, come pure le indica- 
zioni sui computer su cui girano, de- 
vono esser rintracciale sul fascicolo 
da cui sono traili i listati stessi 


Directory N.2 

*r 

Sicuramente apprezzati saranno i 
brani musicali presenti, clic riprodu- 
cono musiche classiche Isolo per 
t 64) Ricordiamo che non ci è possi- 
bile inserire musiche moderne dal 
momento che, per la lepi stazione vi- 
gente, bisognerebbe pagare i di ri Hi 
d autore alla St A E (con conseguente 
incremento del prezzo del disco...) 

19 gioco "Mezzogiorno di fuoco’ 
ipcr C/64) è il videogame italiano 
della Systems Editoriale che più di g- 
gni altro è stalo copialo dai pirati 
nostrani. 

Sono ben quattro le case editrici la- 
dre che hanno scippato il nostro gio- 
co per riproporlo sulle loro cassette 
ad un prezzo. Ira f altro, superiore 


al nostro... 

Anche' Dynastopoli "è un gioco in- 
teressante che va considerato una 
specie di ad venture: siete un giovane 
iuppv che inizia la scalata al succes- 
so; riuscirete a far carriera/ 

Utilissimi, infine, i file che riprodu- 
cono. con eccezionale fedeltà, voci u- 
mane si meri zzate. Si trulla di un int- 
ero programma che gestisce il SID 
dei C/64 in modo ^totale Con questi 
Il le, e utilizzando la mìni routine nei 
vostri listati personali, potrete lar 
parlare il computer in punti panico- 
lari dell ehihoi azione* Potrete, tra 
l'alno, far gridare "Aiuto!” nel caso in 
cui eI vostro omino- aprite .si trovi nei 
guai, oppure lare il conto alla rove- 
scia prima del lancio di un missile o 
altre cose ancora. 

A dispetto delia spettacolarità del 
risultalo, ricordiamo che sono in giro 
da moltissimo tempo opportuni digi- 
talizzatori vocali (hardware). Se qual- 
che le tio re ne possiede uno poirà, a 
sua volta, proporre altre frasi sinte- 
tizzate da presentare agli utenti di 
“Directory" 

Partecipazione dei lettori 

Centinaia sono le occasioni per 
partecipare a "Directory”, 

Prima di inviare il risultato del vo- 
stro lavoro v i consigliamo, però, di te- 
lefonarci per stabilire se risponde ai 
requisiti pei leventuale pubblicazio- 
ne nel. H3/84.h7.34.H) 


! 

Come procurarsi 

“Directory” 

\v veniamo i telluri che NON c asso- 
lutamente possibile inviare i programmi 
su nastrili, per intuibili motivi di ecouu- 
min ed a (Ti ilo h ili là ilei nastro rassetta, 

Ogni numero di “Director}" può 
quindi tesser richiesto SOLO su disco 
inviatilo 1..120HNI per ciascun disco ol- 
tre a 1-3000 (fisse) perle spese di spedi - 
/ione {indipendenti dal numero di dischi 
richiesi i). 

Non ci c possibile inviare materiale 
contrassegno. 

t ompilati un normale modulo di t /t 
postale indirizzando a: 

C/C postale N. 37952207 
Systems Editoriale 
Viale In magona, 75 
20142 Milano 

Niki dimenticate di indicare chiaramen- 
te, .sul retro del modulo (nello spazio in- 
dicalo con “Causale del versamento") 
non solo il vostro nominativo completo, 
ma anche il nome del disco desiderato: 

“Directory N.2" 

N.H. Per ottenere il materiale ordinato 
in tempi piu ristretti, inviate l'importo a 
mezzo assegno bancario non trasferibi- 
le: le poste italiane non brillano per ve- 
locità! (due mesi circa per il recapito di 
un C/C postale). 
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DIRECTORY 


e 1 

"DIRECTORY " D2 2 A* 

2 

"REM KILLER PRGGR" 

PRG 

2 

"GIQC/AZZ OUATTR" 

PRG 

S 

"GIOC/AZZ TRE” 

PRG 

2 

"GIOC/AZZ DUE" 

PRG 

1 

"GIOCO AZZ . UNO " 

PRG 

4 

"TOT/13 DISPLAY" 

PRG 

16 

"TOT/ 13 PROGRAMMA " 

PRG 

6 

"PRG KACCH 1N/TEMP" 

PRG 

4 

M PRG/ SUP ERTA ST I ER" 

PRG 

3 

"PRG SCRAK8LER" 

PRG 

2 

"PRIMO ESEMPIO" 

PRG 

3 

"SECONDO ESEMPIO" 

PRG 

5 

"TERZO ESEMPIO" 

PRG 

0 

"QUARTO ESEMPIO" 

PRG 

8 

"DEMO SPR1TE" 

PRG 

30 

"CHAR/EDIT/126" 

PRG 

9 

"SIMUL FRÙGGER/64" 

PRG 

4 

"DATA DEC-ESA" 

PRG 

1 

"DI MQST . DEC/ESA” 

PRG 

2 

"DATA LQC/CURSOR" 

PRG 

1 

"DEMO LClC/CURS" 

PRG 

3 

"DATA BEEP" 

PRG 

1 

"DEMO BEEP" 

PRG 

3 

"501(30 DIRECTORY" 

PRG 

3 

"1S100 LAMPEGGIO" 

PRG 

4 

"14900 DEL/UINDW" 

PRG 

4 

"15000 FRAMMENTA" 

PRG 

3 

"PRG AUTOEOOT 128" 

PRG 

0 

" C,C,C* 36 " 

USR 

9 

"PRG CERCAPAROLA" 

PRG 

2 

"LOTTO 1" 

PRG 

2 

"LOTTO 2" 

PRG 

7 

"LOTTO 3" 

PRG 

9 

"PRG DEDUZIONE" 

PRG 

2 

"CALCIO EFFIGIE* 1" 

PRG 

6 

"CALCIO EFFIGIE* 2" 

PRG 

4 

"CALCIO EFFIGIE. 3" 

PRG 

17 

"PRG ARCHIVIO TOT" 

PRG 

14 

"CORSA CAVALLI" 

PRG 

4 

"GIOCO INNOCENTE." 

PRG 


1 

"DEMO PAUSE 1920" 

PRG 

4 

"PAUSE 1920/962" 

PRG 

3 

"DEMO COLLISIONE" 

PRG 

5 

"COLL/ 2 1640/ 9 19" 

PRG 

10 

"SP /TOOL/ 21474/63" 

PRG 

2 

"DEMO SPR/TOOL" 

PRG 

7 

"SPR/GEN/21261 " 

PRG 

4 

"DEMO SPR/DEF I N ! T" 

PRG 

5 

" 1 . D I SKMQN/QGGETT" 

PRG 

24 

"1 . DI SkMON/SOURCE" 

PRG 

9 

"DISK MANAGER" 

PRG 

4 

"6 PR/DI RECTORY" 

PRG 

3 

"5 ID 5 CARATTERI" 

PRG 

3 

"4 NOME DISCO" 

PRG 

2 

"3 PROTEZ DISK" 

PRG 

n 

"2 DISPLAY DIRECT" 

PRG 

4 

"1 MEMORIZZA DIRE" 

PRG 

3 

"ERROR DISK N.29" 

PRG 

3 

"156 CARTES/POLAR" 

PRG 

ém 

"155 CON . LOCAR IT." 

PRG 

3 

"154 CONVERSIONI" 

PRG 

3 

"153 SEMPL/FRAZ." 

PRG 

3 

"152 DI V/N/DEC IM. " 

PRG 

0 

"--ALTRI PRQGR . - - " 

USR 

1 

"ISTRUZIONI MUSIC" 

PRG 

9 

"KOMMUNIST MUS1K" 

PRG 

9 

"ZARATHUSTRA" 

PRG 

9 

"PRIMAVERA" 

PRG 

9 

"40 MOZART" 

PRG 

9 

"TOCCATA E FUGA" 

PRG 

1 

"ISTRUZIONI VOCE" 

PRG 

9 

"VOCE 1" 

PRG 

9 

"VOCE 2" 

PRG 

9 

"VOCE 3" 

PRG 

9 

"VOCE 4" 

PRG 

9 

"VOCE 5" 

PRG 

9 

«VOCE 6" 

PRG 

9 

"VOCE 7" 

PRG 

Ì0,ì 

"D1NASTOPOLI " 

PRG 

100 

"MEZZOG. FUOC" 

PRG 

9 

"XYZ" 

PRG 

0 

BLOCKS FREE. 
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Aggiungi un gioie 
puter con un joystick 
lamellari ORO SU OR 
Una resistenza 
milliohm garant 


lo al 


assoluta nei comandi «èzionali 
e di spam. 


tuo 
24 

ell c^dine oet 
e prontezza 


A COLPO 










r\ 

Per una sempre più eccitante 
azione di gioco, un dispositivo 
elettronico di FUOCO CONTI- 
NUO, e attivabile in tutti ì giochi a 
software compatibile. Anche sul 
fareshot trovi i contatti oro su oro 
o se vuoi a MICROSWtTCH. 




Prodotto in Italia da BREMBOTECNICA - Via M Libertà 20 ■ 20090 SEGRATE. tei. 2131941 - Tx. 3I3576RACOM 


SURESHDT 

A colpo sicuro per la forma ergo- 
nomica deli' impugnatura, per la 
struttura ÀNTIURjt), per il suo 
snodo in gomma cpn scorrimenti 

i 


in teflon che 
mando e 


J 3lce il co* 
ritorno 













RECENSIONI 


Il vertice di Mosca 
e altro ancora... 

Anteprima sui programmi di Software Club 


di Miche k Maggi 


E 9 

in edìcola la nuova cassetta 
della Systems Editoriale che, come 
sempre, contiene numerosi program- 
mi dedicati ai computer più diffusi: 
C 64/ 128, CI 6- Plus/4. Vie 20, Spec- 
trum e MSX. 

Ecco, in breve, la trama dei video- 
game e l'argomento delle utility per i 
computer Commodore, 

C64/C12» 


Mosco* Summit 

Per i patiti del genere ^adventure” 
una avventura ispirata alle più famo- 
se sp> story ambientata a Mosca, che 
vedrà il giocatore calato nella parte 
di un agente segreto alle prese con i 
servìzi segreti di tutto il mondo. 

Si tratta di una avventura intera- 
mente descrittiva anziché semigraiì- 
ca in quanto le immagini si devono 
formare nella mente del giocatore in- 
vece che sul video, in modo da poter 
essere maggiormente conivolti nei 
vari eventi. 

La routine di input è stata partico- 
larmente curata in modo da accettare 
frasi molto complesse e in prima per- 
sona, ad esempio: 

Scendo dalla macchina e seguo 
l’uomo 

Siamo sicuri che Moscow Summit, 
proprio come un buon libro, vi farà 
compagnia a lungo, anche perché ai- 
ri n temo del programma é prevista 
l'opzione SAVE che permette di sai- 



f— ■ 


y r r* 



[, J 





U' 


WJ r^9 
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RECENSIONI 


\àit m supporto magnetico la posi- 
zione. in modo da poterla riprendere 
in qualsiasi momento senza dover 
cominciare tulio da capo, 

Priing 

Dalle avventure ad un gioco d'azio- 
ne che ha per protagonista una palli- 
na che. balzando da una piattaforma 
aerea all'altra, deve distruggere le al- 
tre palline presenti saltandovi sopra 
facendo però molta attenzione a cal- 
colare bene le distanze per evitare dì 
cadere del vuoto con conseguente in- 
gloriosa fine... 

Attenzione anche a quegli strani es- 
seri, si ni il i ad amebe.., volanti, ti cui 
contatto si rivela letale. 

Derby 

Un classico gioco ispirato alle corse 
di cavalli in cui fino a IO giocatori 
possono scommettere sul loro benia- 
mino (sia vincente clic piazzato)* 
Dopo le scommesse inizierà la cor- 
sa vera c propria che gli scommettito- 
ri seguiranno certamente con il (lato 
sospeso. 

Al termine della corsa verranno e- 
k-ncatc le somme (vinte o perse) per 
ogni scommettitore, quindi si passe- 
rà ad un'altra corsa. 

Armimi thè vnirld 

Con il Joy in porta 2 eccoti alla gui- 
da di una mongolfiera che, andando 
in giro per il mondo* deve cercare di 
rifornirsi di energia sparando sui "di- 
stributori’ riconoscibili dalla scritta 
*take me" onde poter percorrere più 
strada possibile. 

Purtroppo andare in giro per il 
mondo comporla anche vari incon- 
venienti per cui la nostra mongolfie- 
ra dovrà evitare tutti quegli oggetti 
che cercheranno di colpirla per farle 
terminare prematuramente il suo 
viaggio. 

Leasing 

Un programma di semplice utiliz- 
zo in grado di calcolare il tasso per- 
centuale dell'interesse realmente pa- 
galo a seguito di un'operazione di 
leasing. 

E‘ un programma che si rivelerà 
certamente utile a chi ha intenzione 
di effettuare investi me mi con paga- 
mento rateizzato 


CI 6/ PLUS 4 

The «all 

Il classico gioco da bar, Breakout, 
in versione domestica per avvincenti 
sfide fra amici. 

Scopo del gioco è di colpire la palli- 
na mandandola contro il muro per 
distruggere il maggior numero di 
mattoni. 

Per il controllo della racchetta, usa- 
re i tasti { e ), 

Derby 

Come per la versione per C64* an- 
che in questo caso abbiamo avvin- 
centi corse di cavalli con annesse 
scommesse, 

Spaec 1999 

Un altro gioco della serie “Space in- 
vade rs" che vi vede protagonisti nella 
strenua difesa del vostro pianeta. 

Vie li) 

Crash 

Siete alla guida di una automobile 
che* all'interno di un labirinto, deve 
raccogliere il maggior nu mero di dia- 
manti facendo attenzione a non en- 
trare in collisione con le altre auto- 
mobili, 

Protector 

Interamente realizzato in Linguag- 
gio Macchina, si propone di offrire la 
possibilità a tutti di proteggere, in 
modo sicuro cd affidabile* qualsiasi 
tipo di programma, sia esso in Basic 
o in Linguaggio Macchina, 

Protector necessita per poter essere 
utilizzato dell'aggiunta di una espan- 
sione di memoria da K o piu K 
Ram. 

Il programma implementa, in for- 
mato solo diretto, due nuovi coman- 
di dedicati ad una simile operazione 
di SAVE esclusivamente, si badi be- 
ne, su nastro, e nel formato comune- 
mente denominato "turbo '. 

Un programma che darà filo da tor- 
cere anche ai "pirati' più agguerriti*» 


TANTI 

BUONI MOTIVI 
PER 

ABBONARSI A 



12 NUMERI AL 
PREZZO DI 10: 
solo 40.000 lire 
invece 

di 48.000 lire 

PREZZO BLOCCATO 
per tutta la durata 
dell’abbonamento 


SICUREZZA 
di non perdere 
neanche un numero 

COMODITÀ 
di ricevere la propria 
rivista preferita 
a casa 

• 

COSA STATE 
ASPETTANDO? 
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HARDWARE 

C 64 - C 128 


Come svegliare 

(o addormentare) 
una cartuccia 




Un interruttore, 
un paio di 
saldature ed una 
mini-operazione 
chirurgica 

per abilitare 
o disabilitare 
una cartuccia senza 
rimuoverla dal suo 
alloggiamento 


di Vlesvandro df Simonie 


Wl di Commodore Compo- 
ter C_ lulh, ed esattamente nell articolo 
"Come lì s proteggo il cartrìdge ", ve- 
niva presentalo un progetto in cui si 
consigliava di manomettere il calco- 
latore aito scopo di aggiungere un 
pulsante di Reset ed un interruttore 
che fornisse tensione, o meno, alia 
cartuccia. 

Alcuni lettori avrebbero voluto rea- 
lizzare le modifiche descritte ma* 
preoccupati di ‘ deprezzare” iì com- 
puter, si sono astenuti dal farlo* ri- 
nunciando a malincuore alla como- 
da possibilità. 

Nelle foto di queste pagine sugge- 
riamo. come c possibile vedere, di po- 
sizionare interi nuore e pulsante di 
Reset non sul computer ma sulla car- 
tuccia stessa che, di norma, è suffi- 
cientemente vuota per ospitare sia 
l’uno che ralm 

E ovvio che La pista di rame colle- 
gata ai + 5 Vòlt { pi n 2 e 3) deve essscrc 
interrotta con un tagliermo e collct- 


ta ai due "‘poli dell interruttore* Il 
pulsante di Reset idei tipo norma! 
mente aperto! va collegato tra il pili 
X (lato intenore del circuito stam- 
pato) c la massa- 

li caso del C/128 

Il semplice accorgimento descrìtto 
consente di tenere in modo perma- 
nente una cartuccia sul retro di un 
C/64 e di attivarla solo se ! interrutto- 
re fornisce corrente al cartndge 

Da quanto detto sembrerebbe che 
inserendo una cartuccia per C 64 sul 
retro di un C 128, e tenendo l'infera 
ruttore aperto ( posizione di ”spe nto" ) 
al momento dell accensione del com- 
puter. questo si debba configurare in 
modo C/128. 

Purtroppo ciò non accade perche le 
iniziali zzazìont presenti nel calcola- 
tore non si limitano a verificare la 
presenza dei caratteri codice nelle lo- 


cazioni da 32 7 ó8 in poi (vedi articolo 
"Come disabilitare il tasto di Reset” 
CCC N 30), 

Nei (. 128, infatti, la configurazio- 
ne iniziale si stabilisce anche in base 
allo stato’ del pin N,9 (txrom)j. 

Se, dunque, volete utilizzare una 
cartuccia perC 64 senza toglierla dal 
retro del C I2K. dovete inserire fm- 
tc rnillore ira le estremità delFintemi- 
/ione da praticare sulla pista N.9 an- 
ziché sulle N.2-3. 

La tensione di 5 Volt quindi, ali- 
menta permanentemente il canridge, 
anche se questo non è utilizzato 

Alcune cartucce, addirittura, utiliz- 
zano la pista N,8 (Game) per comu- 
nicare al calcolatore la propria iden- 
tità, 

C hi possiede un C/12& in definiti- 
va, c vuole apportare la semplice mo- 
difica HAV ad una cartuccia per 
C/64, deve interrompere la pista 9 
(oppure la 8* se il procedimento de- 
scritto non porta ai risultati desi- 
derati ). 
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HARDWARE 



Lasciando la cartuccia sul retro si 
otterranno le tre configurazioni pos- 
sibili come segue: 

* Modo C7 1 U 

Escludere Tinte rruttore e accender* 1 il 
computer 


* Modo 64 “normale" 

Escludere Pintcrnittore e accendere il 
computer tenendo premuto il tasto Commo- 
dore. 

* Modo 64 Cartuccia 

Inserire TLnterruttore e accendere il 
computer. 


Se l'interruttore è collegato con la 
pista +5 Volt, il C/128 si sveglierà 
sempre in modo 64 e pei utilizzarlo 
in modo 1 28 (oppure CP/M) sarà ne- 
cessario rimuovere la cartuccia pri- 
ma dell 1 accensione. 



^ U MIO 
COMPUTER 
NON MI 
COMPRENDE! 


Finalmente un libro di 
j \ circa 400 pagine di- 

v j 1 verso da 9 ii altri $ifWa 

rfSw-f JJ I usciti, un libro che fa 

KL f > vQ y- s j capire come funziona 

J L veramente il tuo Corti- 

” inodore 64 o 128* 

Butta via Tassembter, con tutto il suo codazzo di numeri esadecimali e si- 
gle pseudo-mnemoniche! Impara anche tu 

IL VERO LINGUAGGIO MACCHINA DEL COMMODORE 64 

quello espresso da soli numeri, ciascuno dei quaii ha un significato ben pre- 
ciso. La lingua del Commodore 64 è formata da 151 numeri, di cui solo una 
ventina frequentemente usar e questo oro ti insegna il significato e ! uso di 
ciascuno di essi con centinaia di esempi che potrai mmedialamente prova- 
re direttamente sul tuo Commodore senza alcuna particolare conoscenza o 
dispositivo. 

Ti accorgerai quanto sia facile programmare direttamente in linguaggio 
macchina senza far ricorso ad ausili strani che finiscono solo per creare 
una gran confusione. Il iibro contiene anche centinaia di routine per te più 
varie applicazioni: ari-nazione, grafica etc. e contiene numerose taoeìle d 
estrema utilità. 

Per ricevere il libro inviare un vagita postale., un vaglia telegrafico o un asse- 
gno bancario dì Lire 30,000 comprensive di IVA e spese postali , infestato a: 

Società Editrice « t/ncjruagg/cr Macchina » s.a>$. cJo Studi Professionali 
Centralizzati, Corso Garibaldi, 95 -82100 Benevento 


PER FORZAI 

NON PARLI LA SUA LINGUAI 


rut ;. 1 ri 


IL VERO 


LINGDAEBIO MACCHINA 


DEL COMMODORE 64 
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GIOCHI D AZZARDO 


QUALSIASI COMPUTER 

Archivio Totocalcio 


Come realizzare un 
archivio per effettuare 
ricerche o statistiche 
alla velocità del 
linguaggio macchina 


di Antonio Pastorelli 



v. è mai capitato, nel compilare u* 
na schedina, di domandarvi se e 
quante volte le colonne paziente- 
mente preparate sono già risultate 
vincenti, oppure quante volte una de- 
terminata sequenza di segni è com- 
parsa negli ultimi anni? 

Il programma che proponiamo ha 
lo scopo di aiutarvi nella compilazio- 
ne delle schedine esaminando, ap- 
punto, se (e quante volte) una certa 
sequenza si e già verificata in passato 
e se, di conseguenza, ha una certa 
probabilità eli ripresentarsi, o me- 
no. 

Basterà inserire pazientemente, tra- 


mite tastiera, tutte le colonne risulta- 
te vincenti a partire.., dall’anno che 
volete: il numero di "giornate" del 
campionato, valide ai fini del Toto- 
calcio, sono infatti poche decine per 
ogni anno. 

H problema principale del reperi- 
mento delle informazioni si risolve 
facilmente recandosi alla biblioteca 
della vostra Città che, certamente, a- 
vrà la raccolta delle annate passate di 
un qualsiasi quotidiano; sfogliando 
la cronaca sportiva dei lunedi, e tra- 
scrivendo le colonne voncenù, torna- 
ti a casa le riverserete nella memoria 
del computer in modo da realizzare 


un archivio personale da consultare 
al momento opportuno. 

Come utilizzare il programma 

Trascrìtto, registrato e verificato il 
programma, non appena impartite il 
Run compare la domanda “Ti sei ri- 
cordato di cambiare nome all'archi- 
vio?" di vitale importanza per chi uti- 
lizza il drive. 

Rispondendo “bT, infatti, verrà vi- 
sualizzata la linea 650 airi ntemo del- 
la quale compare, tra virgolette, il no- 
me “Anch”. La prima volta che usate 
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il programma potete lasciare il nome 
inalterato: se* al contrario* avrete già 
memorizzato un archivio {dal nome* 
appunto* ?Arch ") dovete cambiare ìi 
suddetto nome dal momento che* su 
uno stesso disco, non e possibile scri- 
vere due file con lo stesso nome Chi 
utilizza il registratore* invece, non a- 
vrà di questi problemi e alla doman- 
da di prima potrà sempre rispondere 
affermativamente (Si 

Effettuato* dunque, Teventuaie 
cambio dì nome, impartite nuova- 
mente Run e* comparsa nuovamente 
la domanda di prima* digitate "S". 

Alla nuova domanda sul computer 
utilizzato rispondete premendo il ta- 
sto “I" (016) oppure '?T (C/64 o 
Plus/4)* A causa della diversa quanti- 
tà dì memoria l'archìvio potrà, infat- 
ti, assumere dimensioni differenti 
ma, in ogni caso, pili che sufficienti 
per i nostri scopi* se considerate che 
mediamente, ogni anno sì gioca, al 


Ne! digitare 'ighe di programma ba- 
sic cho contengono istruzioni DATA* 
è piuttosto tacile incorrere in errori di 
digitazione Supponiamo che un ipo- 
tetica linea basic numerata con 1200 
debba contenere i tre valori 123 
456 789 Ecco alcuni esempi di erro- 
ri piu frequentemente commessi 

1200 DATA 123.456.789 

C'è una virgola dopo la parola 
DATA I dati letti dal computer so 
no. in questo caso quattro 0. 123, 
456 789 Se. intatti non figura alcun 
carattere dopo l'istruzione DATA au 
tematicamente viene assunto il vate 
re nullo fO) 

1200 DATA 123 456.789 

In questo caso, dopo ri numero 
789, il computer, grazie alla presen- 
za della virgola erroneamente inseri- 
ta ‘ crede’ che ci sia un attro valore 
e. non trovandolo, lo assume come 
nullo (0) 

1200 DATA 1234.56.789 

La virgola è posizionata mate, vaie 
a dire dopo il carattere 4 e non 
dopo il carattere "3’ Il computer non 
può sapere se il valore esatto è 123 
oppure 1234 e individuare un onore* 
in questo caso, risulta piuttosto 
laborioso 


massimo, una quarantina dì concor- 
si Totocalcio (52 Tanno per ITinalot- 
to). Le dimensioni massime, comun- 
que, sono: 

* per C/16; 500 colonne 

* per C/64 e Plus/4: 800 colonne 

Dopo una breve attesa, ecco final- 
mente il menu: 

1/ Aggiornamento 
2/ Lettura 
3/ Fine lavoro 

Supponendo dì usare il program- 
ma per la prima volta, dovrete pre- 
mere ti tasto che propone, a sua 
volta, un’altra domanda: 

Ex-novo o Continuazione? 

Inutile dire che usando il program- 
ma per la prima volta dovrete digita* 
re “E" (ex-novo) e, subito dopo, inse- 
rire la data relativa alla prima colon- 
na da archiviare facendo in modo 
che sìa di sei caratteri; esempio: 10 
febbraio 1950, verrà accettata soltan- 
to come 100250* 

Finalmente compare la griglia, so- 
vrastata dal numero d'ordine, in cui 
digiterete le colonne vincenti, una al- 
la volta* 

Nel l'introduzione delle colonne sa- 
rete facilitati dalla presenza della gri- 
glia del tutto simile a quella che abi- 
tualmente compare nelle schedine 
del Totocalcio. 

Nel caso commettiate un errore di 
battitura, poco male: completate i 13 
pronostici e, alla domanda di confer- 
ma* rispondete negativamente* La 
colonna appena inserita verrà igno- 
rata e a conferma dì ciò noterete che 
il numero d'ordine (in alto sul video) 
è rimasto immutato. 

Dopo ogni risposta affermativa 
verrà chiesto se intendete continuare 
o se volete registrare l'archìvio digita- 
to, per riprenderlo, magari, successiva- 
mente. 

Se ritenete dì esservi affaticati trop- 
po, premendo * + S" verrà chiesta la da- 
ta relativa all'ultima colonna inseri- 
rà, in modo che la volta successiva sa- 
rete facilitati a rintracciare la colon- 
na che do vie digitare per incrementa- 
re T archivio. 

Non appena il file-archivio è regi- 
strato comparirà, probabilmente, un 
Syntax Errar. Niente paura; il feno- 


meno è dovuto all'alterazione dei 
punta lori e tale operazione fa “im- 
pazzire " il computer. 

Vi siete ricordati, prima, di registra- 
re il programma secondo le nostre 
raccomandazioni? Noi speriamo di 
sì, perchè, dopo la regitrazìone del- 
Tarchivìo. il listato viene automatica- 
mente cancellato... 

A questo punto è bene spegnere il 
computer e riaccenderlo per evitare 
continue segnalazioni di “Out of me- 
mory Errori? 

ATTENZIONE: quando si riprende 
un lavoro già iniziato (e* comunque, 
per utilizzare l 1 archivio registrato su 
supporto magnetico) bisogna atte- 
nersi scrupolosamente alle seguenti 
istruzioni: 

1/ digitare (caso del nastro!: 

LO AD "nome archivio'’, 1,1 

oppure (disco); 

LO AD 'nome a re bivio"? 8*1 
2 / digitare NEW e premere il tasto 
Return 

3/ caricare il programma e dare il so- 
lito Run 

ÀI posto di “‘nome archivio" digite- 
rete, ovviamente* il nome realmente 
assegnato alla riga 650 ricordata all’i- 
nizio del presente paragrafo. 

Per continuare ad archiviare* rileg- 
gete la prima parte delTarticolo: non 
dovreste avere difficoltà nel conti- 
nuare linserimento. 


Come consultare l’archivio 

Per la consultazione delTarchivto* 
invece* dovrete premere il tasto ’2' 
(Lettura) al momento della compar- 
sa del menu. Vi sono* selezionando 
tale opzione* due possibilità: 

1/ Ricerca sequenza di segni in una 
specifica posizione all'interno delle 
colonne vincenti, 

2 / Ricerca sequenza di segni senza 
tener conto della posizione al Tinte r- 
no delle colonne vincenti 

Vediamo in che modo viene attiva- 
ta la ricerca nei due casi, 
Supponiamo che il nostro archivio 


Commodore Computer Club - 45 



GIOCHI D AZZARDO 


sia composto di sole quattro colonne, 
cd esattamente; 

a/ 111,1 11,11 1,1X1X 
b/ lli.HlJtXX.lXll 
c/ 111.111,111.1111 
d/ 11L2X2AXXJ111 

Supponiamo dì voler sapere in 
quante colonne vincenti compare la 
sequenza “111" nelle righe 4 L 5 e 6, 
Dall'esame del nostro mini archivio 
notiamo che posseggono questa ca- 
ratteristica le colonne a, b. c ila d con- 
tiene. nella posizione accennata. 
2X2). 

Premeremo, pertanto, il tasto “0" 
(zero) per tre volte dal momento che 
le prime tre righe non interessano. 
Batteremo, invece, tre volte il tasto 
ri r in corrispondenza delle righe 
4,5,6, Poiché non interessa il conte- 
nuto delle rimanenti, premeremo il 
tasto 0 fino alla 13ma riga e, alla do- 
manda di conferma, il tasto Return, 
La risposta, ovviamente, è 3, Se com- 
pare una risposta diversa vuol dire 
che avete sbagliato a digitare il pro- 
gramma dalla rivista 

Vediamo, ora, di sfamare ìa secon- 
da opzione. Con questa sarà possibi- 
le sapere quante colonne presentano 
una successione di segni indipen- 
dentemente dalla loro effettiva posi- 
zione all'interno della colonna. 

Se. per esempio, vogliamo sapere in - 
quante colonne la successione XI “ 
si è verificata, dando uno sguardo al 
mini archivio di prima, noteremo 
che tale sequenza è presente nella co- 
lonna "a" (righe 11-12) nella "b"' (ri- 
ghe 9- 10 e 1 1-12) e nella (9-10). La 
risposta, quindi, sarà: 3. La colonna 
'b v , ovviamente, viene conteggiata li- 
na sola volta benché la presenza sia 
doppia. Ciò è stato fatto apposta, per 
evitare statistiche falsate da ripetizio- 
ni nella stessa colonna. 

Per comunicare al programma fin- 
tenzione di verificare la presenza di 
successioni, dovremo premere la se- 
quenza desiderata, indipendente- 
mente dalla posizione nella griglia 
che compare, e poi premere il tasto 
Return. 

Nel caso appena esaminatori n altre 
parole, premerete direttamente TX’, 
*T’ e Return per sapere rintcmiazio- 
ne desiderata. 


Dove comprare Memorex 
e ritirare l’omaggio 


UDINE 

DEU DIVISIONE ELETTRONICA UDINESE 
Via Tiziano Vecellio. 16 - Tel 043 2/43 8 D6 

BELLUNO 

SCP COMPUTER SYSTEM 

Via Feitre, 244/A - Tel. 0437/20826-28705 

CASTELFRANCO VENETO (TV) 

EDS - Via Pio X, 154 * Tel. 0423/497151^1 

TORINO 

AREL ELETTRONICA 

Corso Siracusa, 79 - Tel Òli /329S580 

ELC0NDATA ■ SOFTWARE HOUSE 
Via Vassalli Eandi. 29 - Tel. 011/446085 

S. H.T. - Via Bottelli 25 * Tel. 011/2052576 

CASTELFERRO (AL) 

D0NADQNI 

V:a Sellano, 39 - Tel. 0131 710161-710255 

GENOVA 

ASM COMPUTER ■ Piazza De Ferrari, 24/R 
Tel. 010/294636 

PLAY TIME - Via Gramsci, 5/ R 
Tel. 010/290747 

COOPERATIVA LIBRARIA UNIVERSITARIA 
Salita Seriore delia Noce, 10 rosso 
Tei. 010/510355 

LA SPEZIA 

T. A.M. COMPUTERS 

Via del Popolo. 68 - TeL 0187/ 509591 

SAN RENIO (INI) 

F.C.M. ■ Corse Cavallotti, 200 
Tei. 0184/883376 

VENTIMIGLIA (INI) 

COMPUTER LEE B. 

Via Trento e Trreste, 1 - Tei. 0184/355165 

AULLA (MS) 

TAM. COMPUTERS 

Via Vittorio Veneto. 17 - Tel. 0187/509591 

MILANO 

POLISISTEMI 

Via Dama, 19 ■ Tei. 02/2829917 2842890 

MONZA (MI) 

COMPUTERLAND! A 

Via Co defùngo, 115 - Tel. 039/386750 
COMPUTERLAND^ 

Via Martiri della Libertà, 72 - rissane 
Tei. 039/461362 

BRESCìA 

IES ■ Via Lamarmora, 144/B 
Tel 030/344527 

CASALMAGGIORE (CR) 

IL COMPUTER - Via Pozzi. 13 
Tel. 0375/41564 

PIACENZA 

PC PERSONAL COMPUTER 

Via Chiapponi, 42 - TeL 0523/20626 

PARMA 

ZETA INFORMATICA 

Via Ermi io Lepido, 6 - Tel. 0521/494358 
COMPUTER - P ie Boto, 5 ■ Tel, 0521/33370 

BOLOGNA 

MI NN ELLA COMPUTERS - Via Mazzi i 146/2 
Tel. 051/347420-347512 

LUCKY & SYSDATA SRL 

Via Lame, 108 ■ Tel. 051/557472 


LUCKY & SYSDATA 

Via Fami, 33/ A - TeL 051/231569 

LUCKY 3 SYSDATA 

Via Pietra Mellara, 5 - TeL 051/553773 

RIMIMI (FO) 

MODULSISTEM AL_ COMPUTER 
Vìa Circonvallazione Meridionale 73/B 
Tei. 0641/778403 

FIRENZE 

CENTROGRAF 

Via Regina Ido Giuliani 146 

Ter 055/431793-4378155 

AREZZO 

CARTQGAYl MA 

Via Trasimeno. 33 - TeL 0575/351256 

LIVORNO 

A.S.G. - Agostini Seterie Gestione 
Via della Madonna. 87/89 
Tel. 0586/27358-31084 

VIDEO SOUND 2000 SRL 
Viale Italia, 5 - Tel. 0586/811741 

PISA 

BIG BYTE COMPUTER SHOP 

Via Carlo Cattaneo, 88/90 - TeL 05 0/407 8 6 

COOPERATIVA LIBRARIA UNIVERSITARIA 
Via Santa Maria, 7 - Tel. 0 50/50142 6 

PERUGIA 

PUNTO BASIC ■ Via Torelli, 77 
TeL 075/45891 

ROMA 

METRO IMPORT - Via Donatello. 37 
Tel. 06/3607600-3603724 

ATRIRALDA l‘ AVI 

FLIP-FLOP - Via Appia. 68 - Tel 0825,624772 

PORTICI (NA) 

CARLO & FABRIZIO SERING 
Via A Diaz, 77 - Te! 081/482683 

SALERNO 

COMPUTER SYSTEMS 

Via E Bottiglieri 19 Tel, 089/394491 

DUESSE INFORMATICA 

Via Diaz, 31 - Tel. 089/221626 

SASSARI 

AUDIO LINEA - Via Mameli, 60 
Tel. 079/29349 

BASIC SHOP ■ Via Tempio, 65/A 
Tel. 079/275643 

ANIANTEA (CS) 

INFORMATICA ANIANTEA 

Viale Liberta. 54 - Tel, 0982/41460 

CATANZARO 

C & G. SRL COMPUTERS AND SOFTWARE 
Via S. Acri, 26 - TeL 0961/28076 

MESSINA 

LB.H, - Via XXIV Maggio, 41 - Tei. 090/716202 

PALERMO 

Fili RANDAZZG - Via Zappala, 25 
Tel. 091/269148 

CALTANISETTA 

DATA SOGRAPh 

Via F. Paladini. 84 ■ Tel. 0934. 45039 

SCIACCA (AG) 

PROFESSIONAL COMPUTER -Via Cappuccini. , 
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COMPRAMI 

E TI FARO 1 UN REGALO! 


Acquistando due scatole di Flexible Disk MEMOREX puoi chiedere subito 

un omaggio simpatico, originate e utile: 

l’orologio impermeabile sport-time MEMOREX 
con il portamonete da polso. 


è importante scegli 

MEMOREX 

4 HunwqN ComptAv 


I 

ì 

I 
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1 REM ARCHIUIO TOTOCALCIO 

2 REM PER C/64, C/1G, PLUS/4 

3 ; 

5 POKE 55 , 104 : POKE 56,34:CLR 
10 PRINT "C OLEARI TI SEI RICORDA 
TQ DI CAMBIARE IL NOME D 
ELL * ARCHIUIO CS/N)?*’ 

20 GET AI:IF AI-’^" THEN 50 
30 IF AI- ”N” THEN LIST 650: PRI 
NT TABC 10) "CUP3T" : LIST 660: 
PRINT TABC 10) "CUPDT” : END 
40 GOTO 20 

50 PR I NT ” CELE ARISTA 1 USANDO IL 
” :PRINT"C2 DOUN3 1 )C’16" : PRI 
NT ”2)C~-64 0 PLUS/4” 

60 GET A$:IF A$<”1" OR AI>‘’2” 
THEN 60 

70 IF A$-”2” THEN FI-1S517:P0K 
E BS26.0 

90 IF AI-”1 ” THEN FI-15617;P0K 
E 9926,1 

90 PRI NT "CCLEAR1 ATTENDI . " 

100 X1I-CHRI ( 192) : X2I-CHRSC 179) 
: X3I-CHRIC177) : X4I-CHRSC 171 
) : XSI-CHRSC173) 

101 X6S-CHRIC219) 

110 X7S-CHRIC213) : X9S-CHRSC201) 
: XEI-CHRSC202) : XAI-CHRSC203 
) : XBI-CHRIC221) 

120 FOR J-l TO 20: BI-BI+CHR$C 17 
) : NEXT : DIN BC13):G0SUB 940 

130 RT-0: PRINT ”C OLEARI CRUS) AR 
CHIUIO COLONNE UINCENTI TOT 
DCALCIO ” 

140 PRINT”C3 DOWN! 1 )AGGIORNAHEN 
TO’* : PRINT’'2) LETTURA” : PRINT” 
3) FINE LAUDRO" 

150 GET AS:IF AS“ " 1 ” THEN 190 

160 IF AI- “2” THEN 670 

170 IF AI- "3” THEN PRINT"CCLEAR 
2 “ \ : NEW 

100 GOTO 150 

190 PR I NT” t OLEARI C RUSI E[ RUQFFIX 
-NOUD □ CRUS1CCRUOFFIONTINU 
AZ I ONE? ” 

200 GET A$ : 1 F AI-"E” THEN A-914 
4 : POKE B91S, 194: POKE B916.3 
5: GOTO 900 

210 IF AI- “C” THEN 230 

220 GOTO 200 

230 PRINT M CCLEARDDATA INIZIO:"; 


60 

70 

80 

90 

100 


101 

110 


120 


130 


140 


150 

160 

170 

180 

190 


240 


250 


260 

270 

280 

290 


300 


301 

310 

320 


330 


340 


350 


360 


370 

3B0 

390 

400 

410 

420 


430 


: FOR J-l TD 6:PRINTCHRSCPEE 
KCBB8B+J ) ) ; : NEXT: PRINT 
PRINT”OATA ULTIMA COLONNA:” 

; : FOR J-l TO 6: PRINTCHRSCPE 
EKCBB94+J) ) ; :NEXT: PRINT 
A-PEEKC8915)+25E*PEEKCB916) 

: PR I NT" [ DOUIND COLONNE INSERÌ 
TE: ” ; C A -91 44 )/13: B-000 
IF PEEKCB826)-1 THEN B-500 
PR I NT ’* C DOWN1 PUÒ I INSERIRNE: 
"B-CA-9144)/13 
GET AI : I F A*-”" THEN 280 
PRINT”CCLEAR3I:RUS3 A 

GG I ORNAMENTO 
CH0nEI"<A-9144)/13+l 
print”chohe:cdoii)N] ”X7$xi$xì 
IX 1SX2IX1IXBS: FOR J-l TO 3: 
FOR X-l TO 3 : PRINTXBI” ”X 
B$ " ”XBI 
NEXT 

PRINTX4IX1SX1SXHX6IX1SX5Ì: 

NEXT 

FOR J-l TO 4 : PRINTXBI" ”X 
BI" "X8I : NEXT : PRINTX9IX1SX1 
5X1IX3SX1IXAS 

print"Chomeicdouin: ” : x-0 : for 

J-l TO 13: X-X+l : IF X> 3 AND 

J< 12 THEN X-l : PRI NT” E DOWN 1 
** . 

PRINT TABC4-LENCSTRM J))) ; J 
; NEXT 

PRINT ”C HOHEIC DDWN1 ” : X-0 : FOR 

J-l TO 13: X— X+l : l F X>3 ANO 

J< 12 THEN X-l : PRI NT” C DOWN) 
•* . 

GET AI : I F AI-CHRIC 13 ) AND R 
T-2 THEN Al— ”0”:BCJ)“ 0; GQT 0 
440 

IF AI- ”0 ” AND RT-1 THEN BCJ 
) -0: AI—” ” : GOTO 420 
IF AI- ” 1 ” THEN BC J)-l : GOTO 
420 

IF AI- "X ” THEN BC J )-2 : GOTO 
420 

IF A$-”2" THEN BC J )-3 : GOTO 
420 

GOTD 360 

A=A+1:IF A> 18543 THEN PRINT 
"CCLEARDNON PUOI INSERIRE A 
LTRE COLONNE. ”: GOTO 860 
PRINT TABC5) ; "CRUSI ” ; AI : NEX 


i 8 - Commodore Computer Club 





GIOCHI D AZZARDO 


T 

440 FRlNT’^HOnEl "B$; "CONFERMI C 
S/N)7" 

450 GEI A$:IF A$-"N" THEN 4B0 

460 IF A$-"S" THEN 500 

470 GDTD 450 

480 IF RI THEN PR I NT "C OLEARI ” : G 
OIO 300 

430 A-PEEKCB915)+556*PEEKC0916) 
: GOTO 530 

500 IF RT THEN FOR J-I TD 13: PO 
KE 8900+ J . BC J ) : NEXT : RETURN 

510 FDR J-l TO 1 3 : PDKE A~14+J,B 
C J) : NEXT 

550 PDKE B916, ÌNTCA/556) : PDKE S 
915, A-lNTCA/556)*556 

530 PR I NT” CCLEART CRUS3CC RU0FF3D 
NTINUA INSERÌ tlENTDCRUST 

SCRUOFF3ALUA" ; 

540 FDR J“1 TO 40 : PR I NT ”[ RUST ” 
; : NEXT 

550 GET A$ : I F A$-”C" THEN 590 

560 IF A$“ ”5 " THEN 950 


570 GOTO 550 

5B0 PR I NT ”C RUQFF 1 C 5 DDUNISU C RU 
SIINE RUOF FI ASTRO □ CRUSTDCRU 
OFF! ISCD?" 

530 GET A$ : I F A5-”N” THEN PDKE 
B957^ 1 : GOTO 650 

600 IF A Sì THEN PDKE B357.B: 

GDTD 640 
610 GOTO 530 

650 PRI NT "C 5 DOWN) RI POSIZIONA I 
L NASTRO E PREI1I RETURN.... 

li 

630 GET A$ : I F AÌOCHRSC 13) THEN 
630 

640 IF PEEKC B3S6) “1 THEN 660 
650 PDKE 43,1 B5 : POKE 44,34:P0KE 
45 ,90: PDKE 46 , 75 : 5AUE "ARC 
H" , PEEKCB957 ) , 1 : NED 
660 POKE 43, IBS: POKE 44,34: POKE 
46,61: PDKE 45,50: SAUE "ARC 
H ”, PEEKC 0957 ),1: NEW 
670 PRINT” COLE ART TRUST 
LETTURA 
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660 


690 


700 


710 

760 

730 

790 

750 

760 


770 


7B0 


730 


800 

810 

8E0 

830 

840 


850 

860 

870 

680 

880 

900 


310 


960 


PR I NT*'C S DOWN] 1)RI CERCA SED 
UENZA DI SEGNI IN UNA SPE- 
CIFICA POSIZIONE” 

PR I NT "C 6 DDUN10) RI CERCA 5EQ 
UENZA DI SEGNI IN QUALSIASI 
POSIZIONE” 

GET AS:IF AS--1" THEN RT-1: 
PRINT”C CLEAR] " ; : G05UB 300:G 
OTO 730 

IF A$“ ”6" THEN RT-6: PR1NT”£ 
CLEAR]"; :GOSUB 300; GOTO 760 
GOID 700 

FDR J-l TO 13; IF Bt J ) O 0 IH 
EN 7S0 

NEXT : GOTO 130 

□□SUB 860; SYS90G3: GOTO 730 

RT-0: UA-0: FOR J-l TD 13; IF 

BCJ1-0 THEN GOSUB B50:6OTO 

780 

POKE 9900+ J , BC J) : UA-UA+1 ; NE 
XX 

POKE 8314, UA: POKE 8967, 14-U 
A; GOSUB 820 : SYSB360 
PRINTER DOWN D LA SEQUENZA S 
I E’ UERIFICATA"; PEEK(B3613 
+056*PEEK C B9B2 > ; ”UOLTE. ” 

GET AS : I F AS-"" THEN B00 
GOTO 130 

XX- C PEEK C B915 ) +056*PEEK< 891 
61-3141 )/ 13 

PDKE B300, INTCXX/E56) : POKE 
8319, XX-INT(XX/056)*E56 
PDKE 38, 184; POKE 33, 35; POKE 
8317,0: POKE 6318,0: POKE 83 
61,0: POKE 8366 , 0: RETURN 
FOR K=J TO 13; POKE 8300+K.0 
: NEXT : RETURN 

FOR J-l TD 1500 ; NEXT ;PRINT” 
C CLEAR] REGI STRI CS/N)?” 

GET AS ; I F A$»’’N” THEN 130 
IF AS-**S" THEN 580 
GOTO 870 

INPUT "DATA INIZID CB CARI" 

;DS:IF LEN<0$)<>6 THEN PRIN 

T"CUP] ” ; : GOTO 300 

FDR J-l TD 6: POKE 8888+ J , AS 

CCMIDSCDS , J , 1 1 D : NEXT : GOTO 6 

30 

INPUT "LRUDFFJDATA ULTIMA C 


330 


340 

340 

343 

945 

950 

955 

960 

365 

370 

375 

9B0 

9B5 

930 

1000 

1001 

1005 

1010 

1060 

1001 

1005 

1030 

1040 


OLONNA C 6 CARI IF LENCD 
1)06 THEN PRINT''CUP] ” ; ; GOT 
0 360 

FOR J-l TO 5: POKE BB94+ J , AS 
C(NID$CD$,J,1)): NEXT : GOTO 5 
80 

X“0 : FOR J-l TO 016; READ A:X 
-X+AiPQKE 8367+J , A : NEXT 
IF X06B177 THEN PRINT”ERRO 
RE NEI DATA . . . END 
RETURN 

DATA 160,0,160,1,30,48,35,1 

73.000. 34.640 

DATA 46, 238, 017, 34. 60B, 3, 03 
B, 018 , 34, E3B.013, 34 
DATA 00B, 3,038,014,34, 173,2 
13,34,205,015,34,008,9,173 
DATA 014,34,005,015,34,008, 
1 , 36 

DATA 165,38,105,13,144,0,03 
0,33, 133,38,76,004,34,030 
DATA 000,038,003,34,036.003 
. 34 , 008 

DATA 6,006,003,34,76,044,34 
, 006 , 2E3 ,34,76, 028 , 34 , 173 
DATA 210,34,141,013,34,163, 
0,141 

DATA 000,34,138,76,138,70,1 
77, 3B, 70, 173,010,34,56 
DATA 037,013,34,170,104,001 
, 197,34,040 

DATA 6, 104, 104, 170, 16B, 136, 

96 . 104 . 170 . 630 . 000 . 006 
DATA 019,34,008,002,169,1,1 
41 , 022 , 34 

DATA 76,81,35,160,0,162,1,1 
89 , 196 , 34 , 040 , 7 , 177 , 38 
DATA 001,136,34,008,44,030, 
38 , 008 , 0 

DATA 030,33,030,004,14,008, 
033,038,017,34,008,3 
DATA 038,018,35,038,013,34, 
008,3,030 

DATA 014,34,173,013,34,005, 
015,34,008,007,173,014 
DATA 34, E05, BIS, 34, 60B, 199, 
96,140 

DATA 003,34,169,14,56,037,0 

03.34.04.101.38.144.0. 030.3 
9,133,38,76, 130,35 


50 - Commodore Computer Club 




INTELLIGENZA ARTIFICIALE 


Intelligenti deduzioni 

artificiali 


Come realizzare , col vostro piccolo 
home computer, esperimenti 
nientemeno che di cibernetica! 


di Sandro Certi & Franco Toldi 



,P uò una macchina comportarsi in 
modo intelligente? Attorno a questa 
domanda si sono sviluppati un gran- 
de dibattito e accese dispute, fin dal 
momento in cui sono stati costruiti i 
primi calcolatori. 

Le risposte, naturalmente, sono sta- 
te le più varie; piu o meno argomen- 
tate; più o meno dogmatiche. 


Sia pur fortemente ostacolata da 
cosmici pessimismi, ma anche da in- 
fondati superotti inis mi. l'Intelligen- 
za Artificiale (Al) ha compiuto negli 
ultimi trenta anni notevoli passi in 
avanti. 

Costituisce oggi, per unanime rico- 
noscimento, il campo più innovativo 
e promettente deila futura ricerca 


della Computer Science 
L'Intelligenza Artificiale è oggi un 
terreno di forte investimento per le 
grandi imprese dell'informatica e a- 
spetto privilegiato dei programmi di 
ricerca sovvenzionati da Stati e da or- 
ganismi intemazionali, 

I progressi in questo campo non so- 
no ancora entusiasmanti, nonosian- 
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te le notevoli risorse impiegate. 

Non sbagliamo certamente netTaf- 
fermare che è addirittura difficile de- 
finire univocamente che cosa sia Un* 
telligenza Artificiale. 

Si può però affermare che PAI è un 
campo di ricerca mirante a ottenere 
dai calcolatori un comportamento 
sempre più intelligente operando sia 
sul Software che suirHardware e sul- 
la loro progettazione e realizzazione. 

Per lungo tempo si è cercato di rea- 
lizzare, con il computer, la migliore 
simulazione possibile dei procedi- 
menti tìpici del pensiero umano. 

Ci si è accorti presto che si sapeva 
ancora poco sul funzionamento del- 
la mente umana e sulle metodologie 
che presiedono alle attività del pen- 
siero intelligente. 

Tuttavia, in termini poveri, possia- 
mo azzardare che intelligenza è: rac- 
cogliere, associare, scegliere secondo 
determinati criteri; compiere opera- 
zioni logiche di induzione e di dedu- 
zione; formarsi opinioni c saperle ve- 
rificare: "apprendere", insemina, in 
senso lato. 

Scoprire e automatizzare meccani- 
smi che presiedono a tali funzioni e 
applicarli ai programmi dei calcola- 
tori è, appunto, il lavoro del T AI. 

Gli argomenti dell’AI sono vari e 
molteplici; dalla comprensione auto- 
matica del linguaggio naturale scrit- 
to e parlato, alla risoluzione automa- 
tica di problemi; dalla capacità auto- 
matica dì apprendimento, al ragio- 
namento logico formale o in base a 
regole empiriche appositamente de- 
terminale; fino ai più complessi ‘Si- 
stemi Esperti 11 . 

Ci proponiamo, in futuro, di pre- 
sentare ai lettori una serie di pro- 
grammi, scrini in Basic per i piccoli 
computer di casa, capaci di attuare in 
modo semplice le metodologìe dei 
programmi di Al. 

Si tratterà di programmi limitati 
ma funzionanti e, soprattutto, larga- 
mente perfezionabili da parte dei 
lettori. 


Un programma che ragiona 

Il programma 'Operatore Logico" 
è in grado di compiere automatica- 
mente deduzioni a partire da una se- 



rie di premesse, immagazzinate co- 
me dati. 

Le premesse verranno immesse co- 
me proposizioni in linguaggio natu- 
rale, pur se in una forma sintattica 
molto rigida e primitiva. 

Il programma provvedere a memo- 
rizzare le premesse in forme e moda- 
lità adeguate per essere facilmente 
rielaborate logicamente. 

Una volta immagazzinato un certo 
numero di premesse, si può iniziare a 
“interrogare" LI programma in merito 
alla verità, o meno, di una qualsiasi 
proposizione. 

A questo punto il programma ha tre 
diversi possibili comportamenti: se 
la proposizione di cui si chiede la ve- 
rifica corrisponde direttamente ad u- 
na delle premesse memorizzate, ap- 
parirà un messaggio di conferma 
“Posso confermare”. 

Se non trova dati corrispondenti al- 
la proposizione in verifica, conclude- 
rà “Nessun dato per confermare": 
oppure, scorrendo tutte le afferma- 
zioni contenute nelle premesse im- 
magazzinate. cerca in premesse di- 
verse un fattore di correlazione che 
permetta di verificare la proposizio- 
ne attraverso un ragionamento de- 
duttivo, il cui esito positivo porterà a 
conferma, altrimenti al messaggio di 
non conférma. 


Come usare il programma 

Ricorriamo ora ad un esempio, sìa 
per verificare la corretta trascrizione 
del programma da parte del lettore. 


sia per meglio illustrare le modalità 
di funzionamento. 

Digitato ii programma, e dato il 
Run. dopo alcuni secondi compari- 
ranno le istruzioni in base alle quali 
immettere come premesse le seguenti 
dichiarazioni (non dimenticate “d- 

y 

d-il làico é un predatore 

d-il falco è un uccello 

d-f uccello è un pennuto 

d-un pennuto è ricoperto di penne 

E ' bene ricordare che la sintassi è 
straordi nana mente rigorosa. E* indi- 
spensabile, tra l altro, che i caratteri 
siano sempre tutti minuscoli oppure 
lutti maiuscoli; che tra il trattino di 
“d-" e l'articolo non vi siano spazi; 
che non vi sia più di uno spazio tra le 
diverse parole della dichiarazione; 
che la dichiarazione sia effettuata al 
singolare e non al plurale ("d-il falco 
è...” e non: "d-i falchi sono...”). Volen- 
do utilizzare articoli determinativi o 
indeterminativi, se l'articolo richiede 
fapostrofo non vi devono essere spa- 
zi tra questo e la parola cui sì 
riferisce. 

E' possibile effettuare, comunque, 
dichiarazioni in vari modi diversi, 
dal momento che il programma ri- 
corre a particolari “filtri" per esami- 
nare la frase digitata, 

E' la stessa cosa, ad esempio, 
battere: 

d-Fuccello è un pennuto 
d-fuccello è pennuto 
d-uccello è pennuto 

...ma non,,. 

d -uccello pennuto 

„.pena l'avvertimento "Input non 
conforme alle regole”. 

Supponendo, dunque, di aver inse- 
rito le quattro dichiarazioni di cui so- 
pra, proviamo a chiedere tutto ciò 
che è attinente al "Falco" ricorrendo 
alla sintassi “V-”; 

v-falco 

Il computer risponderà; 

Falco è: 

Predatore 

Uccello 
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riferendosi, cioè, solo alle due di- 
chi a razioni che direttamente meno* 
no in relazione il laico con alcuni 
suoi “attribuir 

t erchiamo ora di stabilire un “col- 
legamento'’ tra le varie dichiarazioni 
ricorrendo dapprima alla forma in 
tei rogativi CL‘)e, subito dopo, ad u- 
na nuova richiesta di visualizzazione 
(V-'*}, N B.: [R| significa Premere il 
tasto Retum": 

i-falco è pennuto [R] 

Posso confermare 
V’ falco |R) 
falco è: 
predatore 
uccello 
pennuto 

Se tentiamo, nuovamente, con: 

i-falco ricoperto di penne [R] 

il computer dimostrerà di aver acqui- 
sito un nuovo dato ad una succes- 
siva verifica: 

i-falco è ricoperto di penne jR] 

posso confermare 

v-faleo [Rj 

falco è: 

predatore 

uccello 

pennuto 

ricoperto di penne 

I jc ultime due proposizioni, in defi- 
nitiva, non erano state direttamente 
immesse come premesse note, ma la 
“verità" c stata ricavata collegando 
tra loro la seconda con la terza pre- 
messa esplicita: 

il falco è un uccello 
l'uccello è un permuto 

dunque si può dedurre che: 

il falco è un pennuto 

A questo punto la proposizione ve- 
rificata vera a tira verso il processo de- 
duttivo descritto, viene immagazzi- 
nata come una nuova premessa 
esplicita 

Ciò naturalmenle permette di pro- 
seguire con la verifica di proposizio- 
ni avendo a disposizione un numero 


maggiore di premesse dichiarate o 
accertate. 

Le nostre conoscenze sul meravi- 
glioso mondo degli uccelli non a- 
vran no compiuto un grande balzo in 
avanti, ma mesterà di ceno la soddi- 
sfazione di vedere il computer ri- 
spondere con un certo sussiego alle 
domande, dopo aver compiuto quel 
procedimento logico detto sillogi- 
smo, su cui tanto hanno discusso lo- 
gici e filosofi. 

Attenzione però, il programma è re- 
sponsabile delle deduzioni che ela- 
bora, non della venta assoluta delle 
premesse che Latente immette nella 
sua memoria attraverso frasi dichia- 
rative. 

Se immettiamo come premessa la 
dichiarazione in zoologia palese- 
mente non vera: 

d-l'uccello è un mammifero |R| 

il programma la assumerà come li- 
na premessa logicamente e informa- 
ticamente vera, e giudicherà confer- 
mala la proposizione: 
i-il falco è mammifero [RJ 

operando una deduzione corretta, 
ma da una premessa falsa nel mondo 
della zoologia, anche se considerabi- 
le come vera in logica. Di tulio dò 
naturalmente non è certo responsa- 
bile il computer! 

Come funziona il programma 

Il programma ha la struttura tipica 
di tutti i programmi di AI scritti in 
Basic cd è composto di routine sem- 
plici e piuttosto note in letteratura. 

La routine "Supervisore" richiama 
nell’ordine stabilito le routine che 
svolgono le diverse funzioni e per- 
mette ('appropriato scorrimento del- 
finiere programma 

La prima routine richiamata ini- 
ziai izza Liniero programma dimen- 
sionando la matrice quadrata A 5 
(Y^O m cui saranno contenuti in for- 
ma di stringa i dati ricavati dalle pre- 
messe dichiarate dall utente o ricava- 
te per deduzione dal programma- 
la dimensione della m atrice è lega* 
la al numero di dati che si pensa di 
iminette re contemporaneamente nel 
programma. 

E' bene ricordare che la scansione 


della matrice pane da ASriMli. prose- 
gue con AJ(0,1 ), AS((\2) e cosi via li- 
no a AS(Y.X) 

La matrice viene, alLinizio. intera- 
mente riempita assegnando un carat- 
tere “spia" (chiocciolina) a tutti i va- 
lori. il quale verrà successivamente o 
gni volta sostituito dai dati che saran- 
no ricavati dalle premesse, l a pre- 
senza della chiocciolina in una strin- 
ga AStWX) indicherà una posizione 
della matrice non ancora occupala 
da un dato significativo. 

La routine "Messaggio di help" for- 
nisce in formazioni sul formulo del- 
t Input. 

La routine "Riceve Input" e quella 
"Smista e elabora input " provvedono 

ad elaborare la frase digitala dal- 
ìutente. 

Dapprima esamina i primi due ca- 
ratteri dell 'input ricevuto, ne control* 
la la coerenza con la sintassi corretta 
(altrimenti rimanda il controllo al 
supervisore), li elimina dalla siringa 
input c attribuisce alla variabile P il 
valore I, 2 oppure 3 che indicherà al 
programma quale funzione Latente 
abbia richiesto (immissione di pre- 
messe, interrogazione, visualizzazio- 
ne dì dati). 

Un secondo compito della routine 
consiste nelTdaborare la stringa 1$ 
ricevuta in input 

A questo punto il programma pre- 
vede una drastica ma necessaria li- 
mitazione: le proposizioni dichiarate 
come premessa o quel le interrogative 
della loro verificttà devono essere e* 
spresse in linguaggio italiano natura- 
le, ma in forma rigidamente vinco- 
lata. 

L’unico formato ammesso è: 

(espressione soggetto) è (espressione 
attributo) 

Vediamo ad esempio: 

d-il falco è un uccello 
i-d laico è un pennuto 

Queste sono entrambe formalmen- 
te corrette. Nella prima repressione 
soggetto è '“Il falco", espressione attri- 
buto è "Un uccello". Soggetto e attri- 
buto possono essere collegati sola- 
mente dal verbo è (nella stringa IS 
che riceve l'input i caratteri delle* 
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^pressione soggetto devono essere se- 
guiti dai caratteri “spazio è spazio'", a 
loro volta seguiti dai caraneri dell'e- 
spressione attributo). 

Per la funzione Visualizzazione il 
formato accettato è: 

v-il falco 

cioè il programma dopo la V- con- 
sidera la stringa rimanente come e- 
spressìone soggetto in base alla routi- 
ne “Divide Input*’, 

La routine a questo punto elabora 
la stringa IS (a cui sono stati già pre- 
cedentemente tolti i primi due carat- 
teri che indicavano la funzione) e la r 
divide in NOS che contiene la espres- 
sione soggetto che si trova a destri di 
“spazio" “è" “spazio": e in ATS che sì 
trova a sinistra. 

Ma il lavoro di "Divide Input” non 
è ancora terminato. Infatti con le li- 
nee di "Toglie articoli” vengono tolti 
da NOS e ATS gli eventuali articoli, 
allo scopo di memorizzare dati non 
vincolati dall articolo che rendereb- 
be piu rigida la successiva utilizza- 
zione. 

Con un ciclo vengono letti successi- 
vamente tutti ì possibili artìcoli im- 
magazzinati nei DAFA che, se indi- 
viduati nelle stringhe NOS e ATS, 
vengono eliminati. 

Finalmente il controllo ritorna a] 
“Supervisore", il quale in base al va- 
lore di P richiama opportunamente 
la routine richiesta. 

La routine “Storage frasi" imma- 
gazzina i dati ricavati dalle proposi- 
zioni dichiarative immesse dall uten- 
te nella matrice ASfYJX) secondo un 
preciso ordine. 

Ogni espressione soggetto viene 
immessa come variabile NOS nella 
posizione AS(0_X) non occupata. La 
corrispondente variabile ATS viene 
immessa nella stessa colonna X della 
matrice al primo valore dì Y non oc- 
cupato (naturalmente a partire da 
Y=1 perché in Y-0 sarà collocata 
sempre la variabile NOS. 

Nel caso in cui venga introdotta u- 
na dichiarazione attinente ad una e- 
spressione soggetto (NOS) già prece- 
dentemente immagazzinata con altri 
attributi (ÀT$), il nuovo attributo vie- 
ne immesso nella colonna in cui si 
trova già la espressione soggetto, nel- 


la prima posizione libera (cioè conte- 
nente soltanto il carattere “spia"). 

La Deduzione 

La routine “Interrogative” è il vero 


cuore operativo del programma. 

Serve a confermare, o meno, la veri- 
tà di una proposizione su cui l'utente 
interroga il computer. 

La proposizione arriva alla mutine 


Una proposta 

Il programma può esser la base per sviluppare un gioco basato su deduzioni 
successive, 

11 listato, già nella versione pubblicala, consente di disegnare, tra l'altro, una trama 
“gialla* 1 , Provate a digitare il seguente banalissimo esempio; 

d-La moglie è uccìsa m 
d-iì marito è geloso [Rj 
d-il geloso è omicidi [R| 

In seguito cancellate lo schermo e, chiamato un familiare, dite che, del “caso* 1 , è 
dato di sapere soltanto che ima donna é stata assassinata e bisogna risalire al 
col pelote. 

IL famili are, ovviamente, all'Inizio è costretto ad andare alla cieca e diptera, 
magari: 

Y-d orina [R( 
v-mort* |R] 
v-fìdatizata [R] 

...ottenendo, come risposta, il laconico messaggio “Nessun dato disponibile*'. Prima 
o poi, però, penserà a digitare: 

v« moglie 

la cui risposta (“acdsa“) suggerirà di richiede re notizie sul marito. La presnza di 
dati (Il marito è geloso) indurrà alla richiesta di frasi del tipo: 

HI marito è assassino [ft| 

finché non si perverrà alla necessaria...: 

HI marito è omicida [R| 


li 


...oppure,., 
v -geloso [R| 

...seguito, finalmente, da... 

HI marito è omicida [R] 

L'esempio riportato, ovviamente, é solo un cenno sulle notevoli possibilità dì svi- 
luppare un gioco decisamente p fi complesso. 

Aggiungendo al programma, infatti, una routine per memorizzare su supporto ma- 
gnetico li matrice-siringa quadrata (ed una per richiamarla in seguito), eliminando 
la possibilità dì fare dichiarazioni, e lasciando disponibili soltanto quelle di interro- 
gazione e visualizzazione, è possibile generare una trama poliziesca in cui Furente, 
interrogando il calcolatore, deve individuare Fautore di un delitto. 

1 lettori più volenterosi sono pertanto invitati a modificare il listato in modo da ren- 
der possìbile la creazione di un gioco, la su* memorizzazione ed il successivo "richia- 
mo" del file che consente di giocare ad un nuovo tipo di "Àdveaiure". 

I lavori migliori verranno pubblicati su "Directory**, 

Prima di invi are il nastro (o discole consigliabile* però, dare un colpo di telefono in 
Redazione (Tel. WMAlM*) per stabilire se programma (e file-gioco) sono idonei 
alla pubblicazione. 
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•CITIZEN 

TELCOM IMPORTA 
E DISTRIBUISCE 
LE STAMPANTI CITIZEN 

Uno gomma di stampa ntf che copre tutte \e esigenze: 

- srampa alfanumerica normale, ascendente-discen- 
dente, espanso, compressa. Elite, Neor Lerrer Gualìty, 
grafico compatibile IBM., 6 Kbyres di buffer di srompo, 
trattore di moduli continui, inseritore di fogli singoli, 
restino a 9 aghi (24 aghi su HQP 45). 


MODELLO 

Hft, COLONNE 

VELOCITA (C Ah /SEC) 

LSP 10 60 120 

MSP 10 

60 

160 

MSP 15 

136 

160 

MSP 20 

60 

200 

MSP 25 

106 

200 

HQP 45 

106 

200 


E per gli hobbisti. „ lo piccola 12QD 80 colonne, 120 
caratteri cor/sec con interfaccia parallela, seriale compati- 
bile APPLE, COMMODORE* 



Nome e Cognome 


Società/ Enrc 


Vìa 


Cirro 

CAP 

Telefono 



CCC 



"e^coTi srl - 2G146 Miìgng - Via V. Civìtai . 75 

Jet 02 / 4047643-4049046 

Telex 335654 TELCOM I - Telefax 02/437964 



{•jCOWWARE 
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anch’ha scomposta nei suoi dati 
fondamentali NO£ e ATS. 

Come prima operazione la routine 
scorre tutte le posizioni AS(O.X) della 
matrice alla ricerca di dati attinenti 
l'espressione soggetto. Se non ne tro- 
va emctie il verdetto "'Nessun dato 
per confermare \ 

In caso affermativo, invece, scorre 
tutte le posizioni della colonna X in 
cui ha trovato l’espressione soggetto 
richiesta, incrementando \ da 1 fino 
a che trova una posizione vuota op- 
pure una stringa uguale alla espres- 
sione attributo richiesta in input. 

Se la trova dichiara Posso confer- 
mare ’ e rinvia direttamente il con* 
(rollo al "Supervisore": se non la tro- 
va il programma non si arrende, ma 
mene il funzione la sua capacità di 
deduzione su tutti i dati disponibili. 
Ciò allo scopo di vedere se i dati per- 
metton di dedurre ugualmente una 
conferma logicamente fondata. 

Allo scopo scorre tutte le posizioni 
in cui siano contenuti attributi, an- 
che relativi ad altre espressioni sog- 
getto. Solo se non trova neU’intera 
matrice fa [tributo uguale a quello ri- 
chiesto in input, si arrende e afferma 
dì non poter confermare. 

Se invece trova un attributo uguale 
a quello richiesto in input in una co- 
lonna capeggiata da una espressione 


soggetto diversa da quella in input 
allora verifica se tra gli attributi del 
soggetto in input ve ne sia uno che è 
uguale al capo-colonna che possiede 
lattributo in questione. 

Ingomma deduce che un attributo 
appartenente ad un capo-colonna 
può essere attribuito anche ad una e- 
spressione soggetto che abbia quel 
capo-colonna come attributo. Se, 
ad esempio: 

il falco è un uccello 

...e se... 

un uccello è un pennuto 
...allora si può dedurre che: 
il falco è un pennino 

Fatta la deduzione viene inviato il 
messaggio ‘Posso confermare ', e ag- 
giunto il nuovo attributo anche alla 
colonna capeggiata dal soggetto con- 
tenuto nelfinput dell utente. sempre 
che vi siano posizioni disponibili 
non occupate. 

L'ultima routine del programma 
('"Visualizzazioni") offre all’utente li- 
na sorta di Utility in grado di visua- 
lizzare in ogni momento quali attri- 
buti siano già stati attribuiti ad un 


certo soggetto. 

Considerazioni finali 

Naturalmente il programma rivela 
j suoi limiti nella laboriosità della o- 
perazione di deduzione e anche in li- 
na certa semplificazione delle opera- 
zioni logiche eseguibili. Tuttavia si 
può ricavarne una impressione favo* 
revole se consideriamo che 1 a q uanti- 
tà dei dati che si possono immettere 
può essere anche molto grande (ba- 
sta infatti espandere il dimensiona- 
mento della matrice fino ai limiti del- 
la memoria del computer) e che la o- 
perazione di deduzione e di memo- 
rizzazione degli attributi dedotti e- 
spande di molto i dati immessi 
direttamente. 

Un altro limite risiede nella rigidità 
dell* interfaccia con l’utente che è co- 
stretto ad immettere frasi fortemente 
limitate nella loro sintassi a causa 
della povertà del trattamento del lin- 
guaggio naturale che il programma è 
in grado di compiere. Tuttavia già La 
routine che elimina dall input gli ar- 
ticoli testimonia che è possibile ope- 
rare efficacemente sul linguaggio na- 
turale, Si ricorda che le espressioni 
soggetto e attributo non sono decli- 
nabili nè per genere nè per numero, 
la qual cosa può generare problemi 
rilevanti. 


10 REH OPERATORE LOGICO 

11 ; 

1E REM ESEMPIO DI INTELLIGENZA 
ARTIFICIALE BY SANDRO CERT 
I fi FRANCO TOLDI 

13 : 

14 REM PER QUALSIASI COMMODORE 

15 : 

90 REM ROUTINE SUPER015QRE 

30 GOSUB 100: REM INIZI ALIZ2AZI 
ONE 

40 Wld-0: GOSUB 220: IF UN THEN 4 
0 : REM RICEUE INPUT 

50 GQSUB BB0: REM SMISTA E ELA 
BORA INPUT 

E0 IF P*1 THEN GOSUB 500: GOTO 
40: REM DICHIARAI IUE 

70 IF P-E THEN GOSUB 610: GOTO 
40: REM INTERROGAI IUE 

90 IF P-3 THEN GOSUB B40: REM 


90 

100 

110 

120 

130 

140 

150 


n 


230 

250 


260 

270 

290 

290 

300 


UISUALI2ZA LISTE 
GOTD 40 

REM INIZI ALI ZZ AZI ONE 
□IM ASC19, 19) 

FOR Y-0 TO 19 
FOR X-0 TO 19 
ASC Y , X)*”@" : REM CARATTERE 
SPIA" 

NEXTXsNEXTY: PRINTCHRSC 147) : 
GOSUB 1000: RETURN 
REM RICEUE INPUT 
P-0 

INPUT "CHELP E- I- U-)“}IS: 
IF IS--HELP” THEN GOSUB 100 
0: RETURN 

IF IS-”FINE*’ THEN END 
RETURN 
REM SMISTA 
BS-LEFTS( IS, 2) 

IS-MIDSCI5.3) 


i 
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310 IF BS-”D-” THEN P-1:G0T0 35 
0 

3E0 IF B$— " I - XHEN P-£:GOTO 35 
0 

330 IF 8S-"U- M THEN P-3:GDTD 35 
0 

340 PRINT” INPUT NON CONFORnE AL 
LE REGOLE”: GOTO 490 
350 REM OIUIDE INPUT 
350 IF P-3 THEN NOS-IS: GOTO 410 
370 FOR K-l TO LENCIS) 

3B0 IF MIOSC I$,K,4)-’’ E’ ” THEN 
NOS-LEFTSCIS, K-l) : ATS-MIDS 
01$, K+4) : GOTO 410 
330 NEXT 

400 PRINT” INPUT NON CONFORME AL 
LE REGOLE": GOTO 490 
410 REM TOGLIE ARTICOLI 
460 RESTORE 
430 FOR XX- 1 TO B 
440 READ ARS 

450 IF riIDSCNQS, 1, LENCARS3 J-ARS 
THEN NQS-MI DSCNOS , LENI ARI) 
+ 11 

4B0 IF MI DSC ATS, 1 , LEN CARSI D- ARS 
THEN ATS-M! DICATI , LEN CARSI 
+ 11 

470 NEXT 

490 DATA "IL ","LO ”,”LA ",”L”’ 

, ”UN ” , "UNA " , "UN ' ** , "UNO " 
490 RETURN 

500 REM STORAGE FRASI DICHIARAI 
IUE 

S10 FOR X-0 TD 19 
520 IF AIC0 , Xl-NOS THEN 550 
530 IF ASC 0 , X I - “0" THEN ASC0.X1 
-NOI: GOTO 550 
540 NEXT 

550 FOR Y-l TO 19 
560 IF AtC Y , Xì-ATS THEN 590 
570 IF ASCY.Xl-"a” THEN ASC Y, XI 
-ATS; GOTO 590 
580 NEXT 
590 PRINT "QK ” 

600 RETURN 

610 REM INTERROGAI IUE 
660 FOR X-0 TO 19 
630 IF ASC0 , Xl-NOS THEN 660 
640 NEXT 

650 PRINT"NESSUN DATO PER CONFE 


390 

400 

410 

460 

430 

440 

450 


460 


470 

490 

490 

500 

S10 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 


RMARE” : GOTO 830 
660 FOR Y-l TD 19 
670 IF A$ C Y , X 1 -ATS THEN 860 
680 NEXT 

690 FOR N-l TO 19 

700 FOR M-0 TO 13 

710 IF ASC N , MI -ATS THEN 740 

760 NEXT: NEXT 

730 GOTO 770 

740 FOR Y-l TO 19 

750 IF ASC Y , X l-AS C0 , MI THEN 700 

760 NEXT 

770 PRI NT "NESSUN DATO PER CONFE 
RMARE": GOTO 830 
780 FOR 5-Y+l TO 19 
790 IF ASCS,X)-"e" THEN ASCS.Xl 
-ATS; GOTO 860 
900 NEXT 

B10 PRINT"NQN HO PIU’ SPAZIO”: G 
OTO B30 

B20 PRINT"P05S0 CONFERMARE ” 

030 RETURN 

940 REM VISUALIZZAZIONI 
850 FOR K-0 TO 13 
860 IF ASC0, JO-NOS THEN 300 
670 NEXT 

660 PRI NT "NESSUN DATO OISPDNIB1 
LE" 

B90 GOTO 940 
900 PRINTNOS+” E’ 

910 FOR J-l TO 13 
960 IF A$CJ t K)<>"@" THEN PRINTA 
SCJ.K) 

930 NEXT 
940 RETURN 

399 REM MESSAGGIO DI HELP 
1000 PRINT: PRINT 

1010 print”Pèr le dichiarative f 

AR PRECEDERE D-” 

1060 PRINT "PER LE INTERROGATIVE 
FAR PRECEDERE I-* 

1030 PRINT "PER LE V I SUAL I 22AZ I ON 
I FAR PRECEDERE U-’*: PRINT 
1035 PRINT"CRUS3HELPLRUOFFD PER 
RICHIAMARE REGOLE” : PRINT 
1040 PRI NT” C ROSI FI NEC RVOFF3 PER 
FINIRE’* 

1050 PRINT: PRINT "PREMI UN TASTO” 
1060 6ET WUS;IF UJWS-”’’ THEN 1060 
1070 WU-1 : RETURN 
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C 64 


Corsa airippodromo 


Una simulazione ben curata nell'animazione 
di tre cavalli spinti al galoppo sfrenato 


di Carlo & Ixirenzo Barazzetta 


\^ruesta programma, scritto per di- 
venire coloro che possiedono il C. 64 
o il C 128 (da usare, ovviamente, in 
"modo" 64). sarà utilissimo anche 
per chi intende studiare panicolari 
tecniche di programmazione in LM. 

Sfortunatamente per gli altri corm 
puter della famiglia Commodore, so* 
lanterne il C 64 è dotato di sprite che 
permettono in modo semplicissimo 
dì "animare ' figure e di creare, con 
brevi listati, videogiochi di sicuro 
effetto. 

In questo caso si tratta di una corsa 
fra tre cavalli guidati da altrettanti 
concorrenti i quali devono frustare 
(perdonateci, amici del WWP) il pro- 
prio animale per vincere il derby. 

Fate attenzione, però, che il caval- 
lo, giustamente seccato da eventuali 
eccessi, rallenterà la corsa per fav i di- 
spetto e sarà difficile riguadagnare 
terreno. 

Alla partenza i tre cavalli si dirige- 
ranno verso la parte destra dello 
schermo e durante la corsa quelli più 
lenti rallenteranno, restando a sini- 
stra. Inoltre uno SCROLL (movi- 
mento) del video (realizzato pixel per 
pixel in LM) aumenterà il realismo 
del gioco e lo scalpitio degli zoccoli 
renderò V atmosfera più avvincente. 

Per spronare i cavalli, usate i 
tasti: 

[DEL] per il cavallo in alto 

D | per il cavallo al centro 

M ] per il cavallo in basso 

Ricordiamo, inoltre, che il gioco è 
molto veloce grazie ad una routine in 
Linguaggio Macchina. Mentre que- 
sta viene eseguita (dalffmzio alla fi- 
ne della corsa) non è possibile bloc- 



care il gioco, ma bisognerà attendere 
barrivo affinché i tasti Run. Stop e 
Restore funzionino nuovamente, 

Dopo aver digitato il programma, 
salvatelo su nastro o disco prima di 
dare il Run, 

Volendo potete modificare i para- 
metri specificati con le REM, per 
cambiare colori e velocità (se preferi- 
te prati viola o cavalli azzurri fate pu- 
re: siamo in un Paese libero). 

Se volete arricchire il gioco vi con- 
sigliamo di aggiungere (se ci riuscite) 
la gestione delle scommesse sulla 
corsa in modo da giocare in piu per 
sone: tre giocatori, ad esempio, pren- 
derannpo te vesti dei fantini e gli altri 
i bookmakers! 

Terminata la gara potete, ad esem- 
pio, controllare che la coordinata X 
dei cavalli sia uguale a 255 (la corsa 
può anche terminare con piu vincito- 
ri) mediante un’istruzione PEEK re- 
lativa alle tre locazioni: 53248 per il 
cavallo in alto, 53250 per quello al 
centro e 53252 per quello in basso. 
Potete anche aggiungere la richiesta 


dei nomi dei fantini e dei rispettivi 
cavalli, stabilire una serie di gare con 
punteggio e classifica finale... 

Se invece siete pigri, limitatevi a 
giocare, ma fate almeno lo sforzo di 
invitare alcuni amici: da soli è troppo 
facile vincere! 

Lo scrolline laterale 

Qualche cenno sulla tecnica di 
SctoII utilizzata nel gioco: 

I bit 0, I e 2 della locazione SDO 16 
controllano la posizione orizzontale 
dello schermo. Tre bit, come è noto, 
possono assumere un valore da 0 a 7 
che indica, in questo caso, di quanti 
pixel i caratteri devono essere spo- 
stati verso destra. 

Se i tre bit vengono modificati con- 
tinuamente in modo tale che assu- 
mano i valori da 7 a 0. ì caratteri delio 
schermo si sposteranno da destra 
verso sinistra di un pixel 9 Ila volta. 

Quando ciò avviene i caratteri delle 
staccionate danno bimpressione di 
spostarsi continuamente verso sini- 
stra anche se, in realtà, non fanno 
altro che spostarsi di sette pixel verso 
sinistra per poi ritornare nella posi- 
zione iniziale. 

Ciò è possibile perchè ogni carat- 
tere dello schermo ne ha uno iden- 
tico a se stesso sia a destra che a 
sinistra. 

Lo spostamento non influisce però 
sugli sprite che restano fissi nella 
propria posizione. 

Prima di effettuare k> serali occorre 
azzerare il bit 3 della locazione 
SDO 16 che riduce lo schermo da 4(1 a 
38 colonne. In questo modo, intani, si 
evitano sgradevoli effetti ai bordi. 
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100 

105 

110 

115 

120 

125 

130 


135 

140 

145 

150 

155 

160 

165 

170 

175 

160 

IBS 

130 

135 

200 

605 

610 

615 

660 


630 

635 

640 

645 

650 


REM COMMODORE 64 

REM LA CORSA DE! CAUALL I 

REM BASIC+LM 

REM BY CARLO B LORENZO BAR 

AZZETTA 

* 

oa-16256:ui-5324B:si- 54272 
FOR ft-0 TO 2: PDKE SI+A*7+4, 
0 : NEXT 

0-0: REtt UDLUilE 

PDKE SI +04, A OR 12B 

POKE 51+14 , 255: POKE 51+15,2 

55 

PDKE SI+18,129 
POKE SI,0:POKE SI+1,10 
PDKE 51+5,1: PDKE 51+6,0 
PRINTCHRSC 1471CHRÌC01 
SYS56792 : REM INIZI ALIZZAZI 
□NE UIDEO 

POKE U1+3E ,0: REM COLORE BD 
RDD 

PDKE UI +33, 5: REH COLORE SF 
ONDO 

PDKE 646, PEEKCUI+321 AND 15 
PRINT"LA CORSA DEI CAMALLI" 
PRINT: PRINT: PRINT 
PRINT "PER FRUSTARE I CAUALL 

I”; 

PRINTCHRSC32 V’USARE I TASTI 
: PRINT 

PRINT”CDELD CAUALLC ALTO":P 
RINT 

PRINT”C D 1 CAUALLO CENTRO" 
: PRINT 

PR INT”C fi 1 CAUALLO BASSO”: 
PRINT 

PRINT: FRINÌ: PR I NT "ATTENDERE 


REM INIZIO DATI LN 

» 

+ 

DATA 1E0, £16,173, 13,64,201 
,33,206 

DATA 14,173, 14,64, E08, 3, 17 


3,22,206 

255 DATA 201,109,208,2,80,06,1 
62,2,254 

£60 DATA 0,64,240,5,202,16,248 
,46,223 

E65 DATA 163,3,64,157,0,64.222 
,6,64, £08 

E70 DATA 104,163,16,157,6,64,1 
B3 , S49 

E75 DATA 7,73,1,157,246,7,160, 
12B, 140 

280 DATA 4, EIE ,200, 140,4,212, 1 
38,166 

265 DATA 169,127,56,42,42,136, 
16,251 

£90 DATA 141,0, SS0, 73, £55,44, 1 

,220,200 

£35 DATA £4,13,3,64,141,3,64,1 

69 . 3 . 64 

300 DATA 205,10,64,240,46,14,2 
7,212, S33 

305 DATA 0.157,3,64,176,36,44, 

9.64.0 

310 DATA 73,255,45,9,64,141,9, 
64,40,240 

315 DATA 223,173,27,212,41,7,1 

25.3.64 

320 DATA 176,7,205,11,64,144,5 
,240,3 

325 DATA 173,10,64,157,3,64,13 
B, 10, 168 

330 DATA 105, 0.E09, 105, 1,240,5 
, 153 , 0 

335 DATA 208,208,78,160,4,152, 
74,141 

340 DATA 12,64,236,12,64,240,1 

1 . 185.0 

345 DATA £00,240,6,56,233,1,15 
3,0,208 

350 DATA 13B, 136,16,231,169,7, 
44,22, 203 

355 DATA 240,5,206,22,200,48,3 
9,172,13 

360 DATA 64,192,40,176,26,169, 
160.153 
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365 DATA 0,4,169,7,136,49,13,1 
41,25,900 

370 DATA 173,14,64,9,176,193,0 
,4,208 

375 DATA 6,206,14,64,141,22,20 
8,206,13 

390 DATA 64,76.46,64 


390 REH FINE DATI LM 
39S ; 

400 FDR A-0 TO 245 
405 PR I NTCHRK 145 )SPC( 9 ) 373-ACH 
RIC20) 

410 READ 0 : I F B>-0 AND B<256 TH 
EN 420 

415 PRINT "ERRORE NEI DATI UT’;: 
END 

420 POKE DA+144+A, B;C-C+B:NEXT 
425 IF C< >25106 THEN 415 
430 : 

435 REM INIZIO DATI SPRITE 
440 : 

445 DATA 0,0, 0,0,0, 0,0, 0,0, 0.0 

, 0 , 0,12 

450 DATA 0,0,15,0,0,29,0,0,62, 
16,0,56 

455 DATA 96,0,63,240,119,231,2 
40 , 255 

460 DATA 231,184,143,207.24,15 

^23 1?0 

465 DATA’ 15,255,128,11,129,192 
.5,129 

470 DATA 96,6,226,192,1,53,128 
,1.179 

475 DATA 0,0, 0,0, 0,0, 0.0. 0,0.0 

, 0 , 0,0 

480 DATA 0,0,0,0,24,0,0,30,0,0 
,56,16 

4B5 DATA 0,63,96,0,113,240.0,1 
23 , 248 

480 DATA 183,231,156,255,199.1 
2, 111,159 

495 DATA 0,15,255,128,7,255,22 
4,15,131 

500 DATA 176,62,0,216.108.0,10 
8,216,0 

505 DATA 102,48,0,6,0,0,0,0.-1 
510 ; 

515 REM FINE DATI SPRITE 
520 : 


560 


570 


5B0 


590 


525 FOR A-0 TD 127 
530 PRINTCHRK 145)SPC( 9) 127-ACH 
RI (20) 

535 READ B:IF B>-0 AND B<256 TH 
EN 545 

540 PRINT"ERRORE NEI DATI SPRIT 
E " ; : END 

545 POKE DA+A.B: C-C+B: NEXT 
550 IF CO33907 THEN 540 


PRINTCHRSC 147) : POKE 01+22,7 
C(0)-7 : REM COLORE STACCION 
ATA 1 

C( 1 )-6: REM COLORE STACCION 
ATA 2 

C(2>— 0: REM COLORE STACCION 
ATA 3 

FOR A-0 TO 2: POKE 0I+A*2+1, 
A»56+70 

POKE 646 , C( A) : FOR B-l TO 5: 
PRINT: NEXT 

FOR B-l TO 40: PRINTCHRK 178 
); : NEXT 

FOR B-l TO 40; PRINTCHRK 125 
) j : NEXTB , A 

POKE 01+39,0: REM COLORE CA 
UALLO 1 

POKE 01+40,1: REM COLORE CA 
OALL0 2 

POKE 01+41, 9: REM COLORE CA 
UALLO 3 

POKE 01+27, 7:P0KE UI+23,7:P 
OKE 01+29,7 

POKE DA+13B, 00: REM OELOCIT 
A’ MIN 

PDKE DA+139, 1B0: REM OELOCI 
TA ’ MAX 

POKE 646, PEEKCO 1+32) AND 15 
PRINTCHRK 1B); 

P 

m 

PRINTCHRK 18) ; 

FDR A- 1 TO 40: PRINTCHRK 32) 
• ; NEXT 

FOR A-0 TO 2: POKE 2040+A.25 
5 

B-CPEEK(DA+138)+PEEK(0A+139 
))/ 2 

POKE DA+12B+A.B: POKE DA+131 
+A.B 

POKE DA+ 1 34+ A , 16 : NEXT 


600 


605 


610 


620 


630 

635 

640 

645 

650 


660 


665 


670 
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S75 POKE DA+137 , 0 
EBB POKE DA+141 , £55: POKE OA+142 
,9 

605 POKE UI+21 ,7: SYSDA+144: POKE 
SI +4 ,B 

ESO C**7 : FOR A-0 TO 2 
635 IF PEEKCUI+A+2)-255 THEN C- 
C-2TA 
700 NEXT 

705 FOR A-l 10 40; FOR B-l TD 10 
0 : NEXT 

710 POKE 01 +21, NOI PEEKC UI+21) 
ANO 7 OR C 


715 NEXT 

720 PRINTCHRSC 19)5PC(9) ; 

725 PR INT "SPAZIO PER RIPARTIRE" 

m 

730 À-60:REM TASTO PER RIPARTI 
RE 

735 IF PEEKC 203)<> A THEN 735 
740 POKE U 1+21,0 
745 FOR A-0 TD 2: POKE UI+A*2,0: 
NEXT 

750 GOTO 545 
755 : 

760 REH FINE LISTATO 


Dibassa melata cp«Hiten l m C a del picce 'Cara* ili 
Locazioni di wncni vti lizzata nel grog ramina 


4066 Od 03 40 ore 14003 
40Sb Bd 03 40 sta 14003 


sa il tasta nen e' aro»Lt(3 

: mini nv lece easueliBante i# 


14000,14001 , *400? 

14004 , 14004 , 14008 
14OT& . 14007 . *1*06 

*4W9 

*40fl* 

1400b 

■m 

14 000 

tlHa 

n®df 


4010 7B 

4011 d0 


locazioni utilizzate per la velocita' 
dei cavalli 

ualon di vai scita' dei cavalli 

locazioni utilizzai» ter il ritardo atj 

mcvimantc delle zampt 

i*i5Chsra pressione tasti 

vaiate di velocita' minima 

vai or a di velocita 1 «tassi ma 

valore tr arai tono per cps 

tute basso distanza dall arrivo 

byta aito di alar, za da II' arri ve 

locazione non utiUzaat» 


ìHEfunmu fsr a i i ■ inir 1 


4012 ad kit, 40 Ida V-itìtìd test sulla F:re della tfru 

4013 tra 11 cep *12 1 

4017 d0 3c bne *4027 

4013 art a* 40 Ida 1420 » ; 

1B1C d* 03 bne *4827 ; 

401 e ad 16 d* Ida IdEì6 , 

4021 -C? cep #*c? t 

40c!3 (39 9S bn» 14M 7 i 


4025 56 
4025 60 


torna al programma Basic 


4 027 a2 02 ldx **02 ; ciclo di ritarda per il mavì mento 

4029 f» 00 40 ine *4300 , * , dei cavalli 

402c FB *5 beq *4033 

4B2a ci dax ì 

402F IB FB Dpi *4029 

40 31 30 4F b*n *4010 i 

4033 bd 03 40 Ida 14003 , * , ripristina li vaiare de: ritardo 
4036 9d 30 40 sta 14 KV , * , 

4035 di» 05 40 dee niiaEi k; ritardo movimento zampe sei 
403e 30 69 fine *4*afi \ cavalli 

403e *3 10 Ida tllB ; ripristina u valore dei ritardo 

4040 9d *5 10 sta *4006 , iti 

4043 M fS 07 ld* *0706 , X: «tovimentc zampe dei cavalli 
4*46 49 *1 «gr ***1 ; 

4049 3d fa 07 sta *07Ffi, ) t J 

104o B0 90 Idy **00 ; rumore zoccoli dei cavai 11 

4*40 0C *4 dH Sty *0404 ; 

4050 CB iny i 

4051 Se 04 d4 sty *d404 i 


4*54 Sa 

4055 sG 

4056 *3 7f 
4*56 36 

4*53 Sm 
405* Sm 
4*5b 06 
4&5c 10 Fb 


tzl 

tag 

Ida **7f 

3#C 

rOl 

rol 

d*V 

bri *4053 


: scansione tastiera 
: cóntr-Ol la la occasione del tasto 
I corrlspondenta al cavallo 


405a H:i 00 de sta SdeÙ* 

40fei 43 rr sol aarr 

40S3 2c *i de bit »dc0i 

4066 d» 16 bna *40BB 


406e bd 03 40 Ida *4083 . x ; ve loclta ' 3*1 cavallo 
4071 cd 0* 40 cnp I400B | 

4074. FB 30 dea *40*6 * 

4076 0O lb d4 asl *di 1 b ; 

4079 e9 0* abe *«08 ; 

407b 3d 33 4B Sta *4003 . y ; 

407* 00 26 DOS *4Ba5 ! 


4000 2c 09 40 bit 140*9 
4003 09 php 

40S4 49 f'F ter *lff 

4006 2d 09 40 and *4**9 

4069 6d 05 40 sta *40*3 

4*tìe 26 plp 

40fid F0 df beq *4064 

4BSF ad 1D d4 Ida idtlb 

4032 29 87 »rd *1*7 

4*94 7d 03 40 adC *40*4 , k 

4037 bffl 07 bes *4*d* 

4*39 cd 0fc 4* cnp *4®0b 

409c 9* «5 Pcc «40»3 

4*9fl ffl 03 beq *4*a3 

4*a* ad B* 4* Ida *400 a 

4043 9* *3 4* sta *4*03, x 


: pe il tasto a' premuta aumenta 
; casualmente la veloci t* ' dai 
; cava 1 io 


40aB 
40*7 
4*a* 
4*49 
4**C 
4*»e 
400* 
4*63 
4005 
400 7 
4000 
4*09 
4*br 

40&F 
40CÌ 
4*C4 
4*c6 
4*C 7 
4*c3 
40CC 
4*cd 
4fl£l 


Sa 

*■ 

aS 

b9 00 dO 
69 VI 
f* 05 

95 8* dB 
dB 4» 

sB 84 

90 

fa 

Bd 0c 4* 
te Se 4B 
FV 05 
b3 00 dB 
f B 05 
30 

a 9 01 
99 0* dB 
GB 

96 

1* e7 


4*d* a3 
•iBd2 Zc 
4*dS f* 
1*47 C» 
40da 30 
4*dc tr 
4*bf C È 
40 e 1 t* 
4*e3 49 
4*eS 93 
4 Ciò Ù *9 
40ea 99 
4040 3B 
iSfld Bd 
4BfB ad 
4013 03 
40F5 99 
4BF* d* 
4*r- c* 
4*fd SO 
410 # ca 
4)83 4C 


*7 

16 d* 

*9 

1.6 d* 

27 

*d 4* 

28 

la 

** 

ai 

*7 

Bd 

16 d* 
B* 4* 
0* 

** *1 

*6 

Sa 48 

16 d* 

8d 40 
2» 40 


*d*U*.y 

*381 

«4*05 

■d000.y 

*4183 

**04 


S100C 
«4S*r 
*40ce 
*dS*B , , 
«iac- 
ulo i 
*0000, U 


*4®b7 

*1*07 

JiBIS 

*4*dc 

*d*!6 

*4103 

*40Bd 

*4«Fd 
**aC 
*0400 , y. 
*«B7 

140 fa 

*0815 

*4000 

*100 

*0400, u 

*4180 

*4*0e 

*d*16 

*408 d 

*4*2* 


sposta il cavallo vinc destra , 
sa si trova nana posizione 
massima sposta pii altri cavalli 
e la achfirmto Ctramit» scrolli 
indietro 


scroi 1 dalie ach*r- 
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mups 


125 XR" e perfino una Fuoristrada ARO 10.1 Super 
Ischia 4*4 

E COME SI FA? 

Per partecipare al concorso occorre acquistare un 
organo AntoneMi e spedire la garanzia entro il 10/ 
1/1987, dopo averla fatta timbrare dal rivenditore. 
Poi, finché aspettate i risultati delle estrazioni, 


tete sperimentare le mille possibilità degli organi 
Antorieili per fare musica, da soli o con gli amici. 


ANT0NELU CAMBIA MUSICA 

Intendiamoci, la musica dovete faria voi, ma con 
Antonelfi é facile imparare. E poi, con il concorso, 
avete uno stimolo in più, 

cosa sì vìnce? 

Dunque, 50 Riproduttori in cuffia stereo (Phe 
lips}, 6 impianti HI-FI stereo. 3 Moto Garelli TIGER 


tei. 071/7100184 
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Cercaparola 

Un gioco di società per divertirsi con gii 
amici e trascorrere il tempo piacevolmente 


di Roberto Mora ssi 


ABACO 

ZUPPA 

g jb AL I FMOLA tCC*» I* CKUlIfl 


Il passatempo "Cercaparola" è ispi- 
rato ad un divertente gioco proposto 
di recente in TV. 

Può essere giocato da un numero 
qualunque di giocatori, uno dei quali 
(chiamiamolo "arbitro") introduce 
segretamente nel computer una pa- 
rola che gli altri, a turno, devono cer- 
care di indovinare. 

Supponiamo che la parola segreta 
sia PANE. Vengono date, alf inizio, le 
due parole estreme del vocabolario 
(per semplicità; ABACO e ZUPPO; 
efr ultime righe del programma) che 
delimitano il campo nel quale è com- 
presa la parola da indovinare. 

Un primo tentativo, ad esempio 
GATTO, riddìnirà uno dei limiti del- 
la ricerca, che proseguirà fra GATTO 
e ZUPPO; se sì propone adesso TO- 
PO, i nuoid limiti saranno GATTO c 
TOPO, e così vìa. Poiché il campo di 
ricerca diventa sempre più stretto, al- 
la fine qualcuno riuscirà a identifica- 
re la parola nascosta, e si può riparti- 
ne nuovamente con un nuovo "arbi- 
tro". 

Come funziona il programma 

IL programma stampa le due parole- 


limite in formato gigante. A tale sco- 
po vengono costruite delle "repliche" 
(in proporzione 16:1) dei caratteri 
standard, usando una matrice di 
stringhe grafiche a media risolu- 
zione. 

La costruzione di questa matrice 
[ righe 410-440) è piuttosto complica- 
ta, e richiede circa 30 secondi durante 
i quali la tastiera è disabilitata (é inu- 
tile, pertanto, premere Run/Stop e 
Restore). 

Viene poi richiesto di digitare '‘alla 
cieca" (dal momento che il colore 
della stampa viene posto uguale a 
quello del fondo) la parola segreta, 
che dovrà avere una lunghezza mas- 
sima di dicci lettere. 

Questa limitazione, che vale per 
tutto il gioco, è dovuta solamente a 
motivi estetici: i caratteri giganti, in- 
fatti, sono larghi quattro volte quelli 
normali, e una parola di dieci lettere 
occupa un’intera riga di schermo. 

Dopo la visualizzazione delle pri- 
me due parole-limite, iniziano i ten- 
tativi di indovinare quella nascosta. 
Le parole via via proposte vengono 
accettate solo se non superiori alle 


dieci lettere, e se comprese entro tl 
campo di ricerca (pena un opportu- 
no messaggio dì errare). 

Dopo ogni INPUT vengono richia- 
mate due brevi routine in linguaggio 
macchina, la prima delle quali (SYS 
890) riempie lo schermo di lettere ca- 
suali e continuamente variabili, men- 
tre Ì& seconda (SYS 820.N, dove N 
èun codice-colore) pulisce lo scher- 
mo. sempre con metodo casuale, con 
spazi-reverse di colore N. 

Le due routine, caricate nel buffer 
del registratore con i DATA delle li- 
nee 200-360, sono interamente ni oca - 
bili, 

U n altra mìcro-routi nc { SYS 950.N ) 
cancella la riga N-ma in caso di IN- 
PUT illegale. 

Le linee 580-600, infine, provvedono 
ad esegui re gli opportuni confronti di 
stringhe e a ridefinire le due parole- 
limite; il ciclo viene ripetuto finché 
qualcuno non indovina la parola 
misteriosa- 

Natural mente si può ampliare il 
programma, aggiungendovi, ad e- 
sempìo, effetti sonori, una routine 
per stabilire i rumi, un sistema di 
punteggi, e cosi via. 


10 REfl CERCAPAROLA 

I 15 : 

! 15 REn Gioco PER C/G4 

10 : 

£0 REtl BY ROBERTO DORASSI 
I 30 REM PISTOIA 
150 : 

130 POKE 53801 * 7 : PRI NTCHRSC 147 ) 
TAB( BSS3SPCC230 J "ATTENDERE 
35 SECONDI M 

S 140 Din X, Y,C$* A, B p Ui,2* AJB* 

\ B$,SS t CDS 
I 150 Din C$<L3 f 3) 


160 DEF FNCCX)“C(tX AND (8*N3) 
+ C X AND N))/N> 

IBS FOR X~1 TO 38: READ Y;C$-CB+ 
CHRSK Y > : NEXT 

180 FOR X-0 TO 3: FOR Y-0 TQ 3: C 
$CX f Y)-NID$CC$ i B*X+8*Y+l , E> 
: NEXT : NEXT 

1S0 : 

191 DATA 146 * 35 , 146 ,178,146,10 
7*146,168, 146*188*16, 161,18 
, 191*10,190, 146 

198 DATA 190, 146, 101 , 146» 161 , 1 
8 „ 100*18,168, 10,187,10, 178, 


62 - Commodore Computer Club 






1H.3E 435 

193 : 440 

£00 DATA 03E , £41 , 103. 169,255, 1 

41. 015, EIE 450 

£10 DPT fi lb9, 120, 141 ,01S,£ÌE,1 450 

53,000, 163 

eea data 03e.2i9,e5s, 173 , 027,2 

1£, 133,251 470 

£30 DATA 173,027, £12, 041 ,003,0 

03.004.133 450 
£30 DATA £5£, 169, 150,145, £51,1 

65 , £S£ , 0£4 490 

£50 DATA 105,212, 133,252, 130,1 500 

45 ,£51 ,£34 510 

£60 DATA £34, £34, £33, £33, £34. £ 
34,234,035 

£70 DATA lb£, 016, £16, 140,015,2 5E0 

1£, 140,015 

£50 DATA £1£, 169, 147,076, £10, £ 530 

55, 169, £55 

£90 DATA 141 , 015, £1£, 169, 1£5, 1 540 

41, 019, eie 550 

300 DATA 169, 000, 165 . 03£ , £1 9 , £ 

55, 173,027 560 

310 DATA £1£, 133,251 ,069, 162,0 

41,031,170 570 

3£0 DATA 173, 0£7, £12, 041 ,003,0 

09.004 . 133 

330 DATA £5£, 130, 145,251 , £34,2 

34 , £34 , £34 590 

340 DATA £34 , £34 , £34 . £34 , £34 , £ 
34,036, 16£ 

350 DATA 0B0 , £20 , 140 , 015 , £12 , 1 590 

40. 015. £1£ 

360 DATA 096, 000.03E.E4l , ltì3,0 600 

76, £55 ,£33 610 

370 : 

390 FOR X-0 TU 135: READ Y:POKE 6£0 

920+X , Y: A-A+Y: NEXT 
390 IF A< >£0365 THEN FRI NT "ERRO 

RE NEI DATA": STOP 630 

400 : 

410 POKE 56334, PEEKC 563341 AND 

£54 : POKE 1, PEEKC 1) AND £51 640 

4£0 POR X-0 TO £5: POR Y-l TU 4: 650 

A-53£56+e*X+£*C Y-l ) :W-PEEKC 
A) : Z-PEEKC A+-1 1 

430 FDR B-7 TU 1 STEP -£:N-£TCS 660 

-1):L$CX, Yl-LSCX, Y)+C*CFNCC 670 

0 1 , FNCCZ ) 1 600 


NEXT: NEXT : NEXT 

POKE 1, PEEKC 1) DR 4 -POKE 56 

334, PEEKC 56334) OR l 
* 

PUKE 53£51 ,6: PKINTCHRSC 147 J 
" INSERISCI LA PAROLA 

SEGRETA" 

PRINTSPCC 7) ” CNON PIU' DI 10 
LETTERE I ) 

PRINISPCC 10) "POI PREDI CRET 
URNJC3LEU1": INPUT PS 
IF LENC PS ) > 10 THEN 460 
AS- “ABACO ” : BS- "ZUPPIA" 

FRINÌ” LB1 ANCO! "CHKSC 147 ) TA 
BC40) ; : COS- “ [ UERDE J " :CS-AS : 
GUSUB 650 
PRINT TABC40) ”f 


PRINT rABC40J ; : COS- ”£ G 1 ALLO 
CS-BS: GOSUB 650 
PRINT”C3 DOUINJ”; 

INPUT ”C BIANCO! QUALE PAROL 
A SCEGLI"; SS 

IF LENI SS )> 10 THEN SYS9S0.1 
5 : PRINT" CUPI" ; : GU I U 550 
IK S$< OR SS> "BS THEN PK 
INT"C£ DO0NJ NON UAL IDA ! 

! ” : FOR X-l TO 500 : NEXT : GOl U 
510 

SYS990 : FOR X-l TU 1000: NEXT 
: I F SS-PS THEN SYSa£0.£:6OT 
0 610 

SYS0E0 , b : I F SS<PS THEN AS-S 

S : GOTO 510 

BS-SS : GOl U 510 

PR I NT ” INDOU INATO M ! ! LA PA 

ROLA E’ PROPRIO 

PRINT TABC1601; : COS- ”C NEROT 

’* : CS _ Pì : 60SUB 650 : PR I NT : PR I 

NT 

PR1N1"LB1ANC0D ANCORA ? 

C S/N) " : UJA 1 T 1SB , 1 : G£ f AS : i F 
AS-"S" THEN 460 
END 

PRINT COS; : FOR X“1 TO 4:F0H 
Y-l TD LENCCS) : PKINTLECASCC 
M1USCCS, Y) )-65,X) ; : NEXT 
IF LENCCS ) < 10 IHEN PRINT 
NEXT; RETURN 
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QUALSIASI COMPUTER 


Quanto 

vale 
la tua 
squadra 

del 

cuore? 


Un metodo 
obiettivo (!) 

e valido 
per valutare 
le squadre 
in concorso , 
evitando 
alterazioni 
di giudizio 
derivanti 
dal tifo 
di parte 


dì \lfsvt.ndro di- Siiimrn/ 


compila la schedina Totocal- 
cio appartiene, incviiahil mente, ad 
una delle due cu Lego rie possibili : lì- 
invi e non tifosi. 

Net primo caso il pronostico c fal- 
sato dal Topi nìonc strettamente per- 
sonale che si ha di ciascuna squadra/ 





vfocaictv 


MB* 
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nd secondo, al contrario, si rischia di 
compilare le colonne con una bastia- 
re incompetenza che porta, ovvia- 
mente. a limitare le probabilità di 
vincita. 

11 giocatore ideale è quella persona 
che. pur avendo notevole competen- 
za nel formulare giudizi su tutte le 
squadre dì calcio, si rifiuta di parteg- 
giare per una di esse in particolare; iì 
che costituisce un assurdo. Non è an- 
cora nato il tifoso impassibile nè l'e- 
sperto senza tifo. 

Nel compilare una schedina, ad e- 
sempio, provate a chiedere il parere 
di un interista e di uno juventino: dif- 
ficilmente la discussione che verrà 
fuori si terrà nei limili di un pacato 
scambio di vedute. 

Scherzi a parte, dovrà pur esserci 
un modo di individuare parametri o- 
b iettivi di valutazione! 

Un tentativo di affrontare (stavo 
per dire: risolvere) il problema, può 
esser rappresentato dai ire program 
mi che compaiono in queste pagine e 
che descrivo uno per volta. 

Il primo programma 

Partiremo dal presupposto secon- 
do cui il risultalo di un incontro spor- 
tivo rappresenta (a pane la fortuna o 
la sfortuna che è impossibile prede- 
terminare) da un gruppo di fattori 
concomitanti. 

Alcune squadre, ad esempio, sono 
più valide in difesa anziché iti attac- 
co; altre, invece, nei giochi fuori casa 
rendono molto meno; altre ancora 
giocano molto mule in condizioni at- 
mosferiche av verse mentre eventi ne- 
gativi (totonero, figli presunti, ritiro 
passaporti litigi con dirigenti i i tinni- 
scono sul morale della squadra o di 
alcuni giocatori ir modo più o meno 
determinante al line di una valida 
partita 

Dato il Run al pomo programma 
compare la domanda "Fattore cam- 
po?" cui risponderete con un nume- 
ro. compreso tra de 10. che dovrebbe 
essere il più obicttivo possibile. Alale 
scopo potete controllare (esaminan- 
do il comporta mento della squadra 
in oggetto) i risultati ottenuti nel pas- 
sato in quel campo di calcio ed asse- 
gnando un voto alto, medio u basso 


in caso di molte, poche vittorie o nu* 
morose sconfitte. 

Con analoghi criteri rispondetele 
alle domande successive, vale a dire 
assegnando un volo alla valutazione 
della difesa e dell'attacco, nel loro in- 
sieme: alla validità della presenza di 
tifosi le della loro comprovata effi- 
cienza". o meno) nella panila da di- 
sputare: al comportamento abituale 
dei giocatori nelle presumibili condì* 
rioni atmosferiche; alla valutazione 
(piuttosto aleatoria, lo ammetto) del- 
le condizioni “medie " psicologiche e 
fisiche dell'intera squadra. 

tl risultato dell'erborazione non 
rappresenta altro che un voto medio, 
di scarsa utilità pratica. 

Tale valutazione, infatti, deriva 
dall'alt ribui re l'identica importanza 
a fattori che. in realtà, influiscono in 
modo diverso sulle reali condizioni 
delle squadre. Un voto e vemuid men- 
te basso assegnato alle condizioni at- 
mosferiche { esempio: 3) viene con- 
trobilanciato a malapena da uno alto 
attribuito alle condizioni fisiche (c- 
sempio; 3S) fornendo La modesta me- 
dia del 5.5 |(8+3>/2]. 

Il programma. dunque, necessita di 

una “correzione '. Con il secondo 
programma, pertanto, non solo ap- 
porteremo le modifiche necessarie, 
ma faremo in modo da rendere obiet- 
tivi, in seguita ì pronastici per le 
squadre dì cateto. 

Il secondo programma 

Dato il Run. verrà chiesto di intro- 
durre il numero di fattori determi- 
nanti. Supponiamo, per semplicità, 
di considerare solo efficienza fìsica; 
effetto della tifoserìa, condizioni psi- 
cologiche. effetto campo, vai utaz ione 
difesa. Digiteremo, quindi. 5 come 
risposta. 

Subito dopo verrà chiesto di digita^ 
re il numero delle squadre di calcio 
sulle quali siete in grado d i esprimere 
un parere. Dovrete, almeno, inserire 
dati su tutte le squadre di sene A e B. 
Se non vi ritenete all altezza nascon- 
dete funi gli oggetti contundenti ed 
invitate a casa vostra tifosi di opposte 
fazioni allo scopo dì giungere, vivi, 
alla determinazione di una valuta- 
zione obiettiva il piu possibile. 

Per comprendere più lacrime ntc 


l’uso del programma proposto, ri- 
spondete 4 alla richiesta sul numero 
delle squadre. 

In seguito digitate sia i fattori sia il 
nome delle squadre: 

Fattore 1? Eff. fìsici [H] 

Vittore 2? Tifoseria |K] 

Fattore .17 Cond.psir alogiche |R) 

Fattore 47 Effetto campo [ K J 
Fattore 57 VUut. difesa flt] 

Alla richiesta di conferma premete 
S oppure N a seconda se siete soddi- 
sfatti dei dati digitati 

Analogamente rispondete alle do- 
mande successive, relative ai nomi 
delle squadre, digitando: 

Squadra n.l? Alfa f R| 

Squadra n.27 Beta fK| 

Squadra n.J? Gamma [R] 

Squadra n.4? Ltelta |Kj 

(Ho preferito evitare nomi di squa- 
dre vere, per evitare polemiche sui 
commenti che tra poco sarò costretto 
a fare...) 

Dopo aver risposto affermativa- 
mente anche alla seconda domanda 
di conferma, verranno visualizzati li- 
no per uno, per ciascuna squadra, i 
cinque fattori determinanti prima in- 
dicati. bara ora necessario assegnare, 
per ciascuno di essi, la percentuale di 
influenza sulla valutazione compiti 
siva. Seguitemi nellesempio per me- 
glio comprendere; 

Squadra: Alfa 

KIT. fisici pcr%? I5|R] 85 
Tifoseria prr%? 43|R) 42 
Cond.psteul. per%? 20JRJ 21 
Effét. campo per%? I0|R] 12 

Il programma, in altre parole, asse- 
gna un totale di 100 alla globalità dei 
cinque fattori. Se ritenete che l'effi- 
cienza fisica valga al massimo 15 per 
la squadra Alfa, non appena premete 
il tasto Return vena visualizzato il 
valore residuo 85 (100-15=85). Se, an- 
cora. la tifoseria ha un molo impor- 
tante per il risultato de (rincontro e 
decidete per u n 43%. rimane a dispo- 
sizione il 42% (opportunamente vi- 
sualizzato) da distribuire tra i fattori 
rimanenti. Per l'ultimo fattore (Val ut, 
difesa) la valutazione percentuale è 
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automatica dal momento che la 
somma l ‘deve" essere 100, 

Anche in questo caso* conferman- 
do la digitazione, si passa alla squa- 
dra successiva (Beta) lino all'ultima 
(Gamma). 

AJ termine de] l’assegnazione do- 
vrete decidere se registrare i dati su 
cassetta o disco. Compiuta l'opera- 
zione non resta che utilizzare il 
terzo programma. 

Come utilizzare il terzo listato 

Dato il solilo Rum rispondete in 
modo coerente alle varie domande 
(nastro o disco, nome del file): subito 
verranno caricati, e visualizzati, sia i 
nomi dei fattori che quelli delle squa- 
dre. Da notare che le percentuali ven- 
gono tenute nascoste. 

Alla domanda "Squadra?" rispon- 
dete col ito me desiderato, oppure con 


le prime lettere se non ce pericolo di 
equivoco, digitate, dunque, alfa (op- 
pure "al"} e premete Return. 

Comparirà il nome delta squadra 
(per intero, in reverse) e la richiesta 
del voto da assegnare ai cinque fatto- 
ri, che verranno visualizzati in suc- 
cessione. Supponiamo che la squa- 
dra Alfa giochi in casa, sul cui campo 
risulta imbattuta da tempo, c che la 
tì tose ria è validissima; supporremo, 
inoltre, che la squadra sia da poco 
tempo uscita vittoriosa da u na partita 
extra-campionato e che, purtroppo, 
non solo risente della fatica, ma deve 
rinunciare ad un valido difensore per 
proibizione del medico della società. 
Un’assegnazione dei voti può essere, 
in questo caso, la seguente: 

Squadri) Alfa 

Lff, fisica >Oto? 5 |K| 

Tifoseria mio? HJfRj 
Condipsicol.Ttìto? 1 [R| 


Effct,campo voto? tft|R| 

Val. difesa volo? 6 |K| 

L'elaborazione risulta Sri 7 mentre 
la semplice media aritmetica porte- 
rebbe al valore 7 . 6 . Ciò è accaduto 
proprio perché ciascun voto c stato 
"pesato ' con le percentuali imposta- 
le precedentemente. Il vantaggio rii 
non poter ricordare tutte le percen- 
tuali impostate per tutte le squadre 
dovrebbe rendere t elaborazione del 
voto tinaie più obiettiva 

Analogamente procederete alla de- 
terminazione del voto della squadra 
con cui Alla dovrà battersi, A secon- 
da delle elaborazioni, dunque, sapre- 
te assegnare con maggior equilìbrio 
una vittoria, una sconfitta o un 
pareggio. 

Non resta che invitare a casa vostra 
i consulenti per decidere le percen- 
tuali ma. mi raccomando, sceglieteli 
tra persone mature, responsabili e 
non litigiose- 


133 

110 

150 

130 

140 

1S0 

160 

170 

100 

105 

190 

000 

510 

000 

030 

540 

550 


REM QETEEUINAZ I ONE DELLE 
REN CONDIZIONI IN CUI 
REM GIOCHERÀ’ UNA SQUADRA 

POR 1-0 IO 6: READ «CIBACI 

) ; NEXT 

■* 

* 

FRINTCHRSC 1473 "ASSEGNA UN U 

DIO TRA 0 E 10": PRIMI 

FDR 1=0 TO 6: PRINTASCI 3 ; : IN 

FUT ” : UOTO ” ; U0 

U=U+UO*AC I 3/100: NEXT : FRI NT : 

FRI NT "UOTO TOTALE: "U 

DATA "FATTORE CAMPO”, 50 
DATA "CONO IZ. DI FESA ", 15 
DATA "CONDÌ .ATTACCO" , 30 
DATA "FATTORE TIFO”, 7 
DATA "COND I . ATflOSF . " , 3 
DATA "CONDÌ .PS I COL . 10 
DATA "CONDÌ .FISICHE”,15 


100 REM PROGRAMMA DI 1MP05TAZI0 
NE 

110 REM COEFFICIENTI 
150 REM PER LA DETERMINAZIONE 
130 REM DELL’EFFICIENZA DI 
140 REM SQUADRE DI CALCIO 
150 ; 


160 CLS-CHRSC1473 

170 PRINTCLS” INTRODUCI UNO ALLA 
UOLTA I UARI FATTORI DETER 
MINANTI 

100 PR INT”PER L’ESITO DI UN INC 
ONTRO DI CALCIO" 

130 PRINT: INPUT "QUANTI FATTORI 
” ; F A : I F FA< 1 THEN 130 

500 FRINÌ; INPUT "QUANTE SQUADRE 
” ; NS : I F NS< 1 THEN 500 

510 DIM ASC FA) : DIM B$CN53:DIM X 
CFA.NS) 

550 FOR 1=1 TO 50 : A$=A$+ : NEX 

T: PRINT 

530 XS=”" : PRINTCLS: FOR 1-1 TO F 
A 

535 PRINT "FATTORE N . " I ; : INPUT A 
SCI 3: IF ASCI ) = ”” THEN 535 

540 ASC I )=LEFT$CA$C I 3+AS, 133 : NE 
XT 

550 PRINTCLS; : FOR 1-1 TO FA: FRI 
NT’TATT ,N . " I ; CHRS C 10 3 A$ C I 3 : 
NEXT 

560 PRINT: GOSUB 540: PRINT: PRINT 
: IF A$< > ”S" THEN RUN 

570 PRINTCLS: FOR I~1 TO NS 

280 BICI 3“"” : PRINT "SQUADRA N.”I 
INPUT B$ C I 3 : I P BSCI3“”” T 
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300 NEXT : PRINTCLS 
310 FOR 1-1 IO NS: PR INI "SQUADRA 
N."I; asti): NEXT 
320 PRINT ; GQSUB 540: 1F A$<>"S" 
THEtM 270 

330 FOR X-l IO N5 
340 FRINTCL$’’SQUADRA: ,, B$CX):PR 
INI 

350 PX»100:FQR Y“ 1 IO FA-1 
3G0 PRINIASCY) PR-0: INPUT "PER 
. V; PR: PP-PX-PR 
370 IF FP< 0 THEN 360 
3B0 PRINTCHRSC 145) TABC23)PP : PX 
“PP :XCY,X)“PR: NEXT 
330 XCFA,X)-PX 

400 PRINTCL$"SQUAORA : "ESCX):PR 
INI: FOR Z-l TO FA: PRINT8SCZ 
)Y r ? V *1 . MFYT 

410 PRINT: GDSUB 540 : I F A$<>”5" 
THEN 340 

420 NEXTX ; PPI NTCLS 
430 PRINT”M£M0RI22AZ . DATI SU S 
UPPDRTQ MAGNETICO” : PRINT 
440 DN"= 1 : PR INI ,J D ISCO □ NASTRO t 
D/N) ” ; GDSUB 5S0 

450 PRINT: PRINT: IF AS“”D” THEN 
DN*9 

460 PR I NT "NOME DEL FILE DA ASSE 
GNARE AI FATTORI ” : INPUT AS : 
A$-AS+ ,l t S 1 UT 
470 OPEN l.DN.a^AS 
460 PRIISIT#! t FA: REM SCRIUE N * FAT 
TORI 

490 PRINT#1 , MS : REFI SCRIUE N.SQU 
ADRE 

500 FOR X-l TO FA: FRINITI t ASCX) 

: NEXT 

510 FOR X-l TQ NS: PRINTttl f BSCXl 
: NEXT 

520 FOR X-l TO FA: POR Y-l TO NS 
: PRINTttl , XCX, Y) : NEXTY , X 
530 CLD5E 1 : PRINT "FINE LAUORO”: 
END 

540 PRINT "CONFERME? C S/N}” 

S50 GET A$ : I F A*-”" THEN 550 
560 RETURN 

100 REM PROGRAMMA PER ELABORARE 
L'EFFICIENZA DI SQUADRE DI 
CALCIO 


110 RE M IN BASE A COEFFICIENTI 
PRECEDENTEMENTE IMPOSTATI 
120 : 

130 CL$»CHRSC147) : RE$*CHRSC1Q) 
140 PRINTCLS: DN-1 : INPUT *’ NASTRO 
□ DISCO CN/D) ” ; A$: IF A$<>” 
N” THEN DN-8 

150 fì*= BW ! PRINT "NOME DEL FILE D 
A CARICARE”: INPUT A$:B$-AÈ: 
IF DNO0 THEN 170 
1SS IF AS*” ,f THEN RUN 
160 t S f R”: PRINTCLS 

170 DPEN 1 , DN , 0 , AS 
180 INPUT# 1 , FA: REM LEGGE N * FATT 
ORI 

190 INPUT#! t NS: REM LEGGE N.SOUA 
DRE 

200 DIN A£ C F A ) ; Din BSCNS^OIM X 
C FA , NS ) 

210 PRINT ”N • FATTORI DEL FILE "B 
$ f, -”FA: PRINT 

220 FOR X-l TO FA: I NPUT#1 1 ASC X ) 

: PR I NTRESAS C X 1 , t NEXT: PRINT 
230 PR I NT ”N * SQUADRE DEL FILE ,l B 
$"- B NS: PRINT 

240 FOR X-l IO NS: INPUT# 1 , BSCX? 

: PR I NTRESBS ( X ) , : NEXT 
250 FQR X-l TO FA: FOR Y-l TO NS 
: INPUT# 1 , XCX, Y) : NEXTY p X 
260 CLDSE 1 : PRINT: PRINT: GDSUB 3 
40 

270 PRINTCLS: INPUT ”SQUA 
DRA” ; 5Q$ : LE-LENCSQ5 ) : I F SQS 
THEN 270 

280 DU-0 : POR 1-1 TQ NS:IF LEFTS 
CB£C ID t LE)-SO$ THEN DU-1:SI 
-I : I-NS 

290 NEXT : IF DU=0 THEN PRINT: PRI 
NT” SQUADRA I NES I STENTE 11 : GOS 
UB 340: GOTO 270 

300 PRI NTCL$RE$B$( S I > : PRINT: TT- 
0 

310 FGR 1-1 TO FA: PRINTA5C II ; :U 
T-0: INPUT ”UDTO”:UT 
380 TT-TT+XC I , Sn*UT/100: NEXT 
330 PRINT: PRINT ”UQTO ELABORATO: 

PRESETI : GQSUB 340 : GOTO 270 
340 PRINT: PRI NT” PER CONTINUARE 
PREMI UN TASTO' 1 
350 GET A$:IF A5-” 11 THEN 350 
360 RETURN 
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QUALSIASI COMPUTER 


Gioco innocente... 


ispirazioni perqueMo 
programma che. nei la sua brevità, 
merita di esser et iprato ed uii li //aio 
per stupire gh amici che ancora non 
possiedono un compia tei 
Le spiega /io ni indispensabili per 
giocare vcnamio viMialwalc nie- 
lli ante istruzioni Prilli. 

Quando siete Muli e volete scoprire 
il trucco esaminate in dettaglio il li- 


Un programma 
brevissimo e semplice 
che simula un 
passatempo di 
antica memoria 

di Mauri/m Dei l'Abate 


italo in pochi minuti {giorni !\ riusci- 
rete ad eseguire lo .stesso gioco con 1 1 
carte, e 1 vostri amici (quelli di prima) 
continueranno a stupirsi (cambiate 
amici: torse sono un po’ tonti). 

un gioco vecchio! ’ diranno i 
maligni che. però feti/ f a volpe vi u- 
va' l non sono Mali in grado di t ra- 
sici irto su computer*.. 


[ 100 

REn BIQCG riRGlCQ - 8Y n t 0 


500; NEXT 



ELL 'ABATE 

300 

GOTO 260 


110 

REH PER QUALSIASI CGflFUTER 

310 

PRINTTCHRSC 147) : PRINTSPCC1) 

120 

•i 


; "-COL 1--CDL 2--C0L 

M 

130 

PRINTCHRSC 1473 

3£0 

PRINT ; PRINT; PRINT ; PRINT 

140 

FRINÌ TABI 12) ; "CQnPUTER flAG 

330 

POR 1-0 10 £0 STEP 3 



ICQ" 

340 

PR I NTSPC C 4 ) ; A$ C I) ; SPC C 6 ) ; AS 

150 

□in AS120) 


C 1+1) ; SPCCE) ; ASC 1+2) 


160 

A$* ’41RE I LNFPU6TQAH2E□CUD5 ,, 

3S0 

PRINT: NEXT 


170 

IF RN0C1X.33 THEN A$-”LSCn 

360 

PRINT; PRINT" IN CHE 

COLONNA 


TARDUNBOPQFUE^G I H 1J 


SI TRGUA? Cl-S-Sr 1 


100 

IF RNDtlX.66 THEN A$-"ALBH 

370 

GET ZS: IF ZS< "1" OR 

Z$>"3 M 


CNDDEPFQGRHS I TL12U " 


THEN 370 


100 

XB~LENC AS 3 +300+1 7 *£ 

380 

B$“" " ; FQR 2-0 TO 10 

STEP 3: 

1 £00 

FQR G“0 TO 1000; NEXT : FRINTC 


BS-BS+ASCZ) : NEXT 



HRS C 147 ) 

380 

NI”” FQR Z-l TO 19 

STEP 3; 

1 £10 

PRINT” HAI 10 SECONDI PER P 


NS-NS+ASCZ) : NEXT 



ENSARE UNA” 

400 

ns-"”;F0R Z -2 TD 20 

STEP 3: 

220 

PRINT" LETTERA DALLA A ALLA 


ns-ns+A$cz ) : next 



Z DELL'ALFABETO" 

410 

IF z$-”l" THEN AS-N5+B$+nS: 

1 E30 

PRINT" ITALIANO CABCDEFGHIL 


GOTO 440 



HNOPQRSTUUZ) . “ 

420 

IF ZS=”e” THEN AS-n$+NS+BS; 

£40 

PRINT" IO NON LA DEUO SAPER 


GOTO 440 



E ! ! ” 

430 

AS-NS+MS+BS 


£50 

FOR 1-0 TU 5000; NEXT 

440 

CT-CT+1: RETURN 


j 260 

POR 1-1 IO 21 : ASC I“l)-mOSC 

450 

PRINTCHR$C147) 


j 

AS. I , 1 ) ; NEXT 

460 

ZXS-ASCSQRC 1000-XB+40+4T2-1 

270 

IF CT“3 THEN 450 


;n 


£00 

GOSUB 310 

470 

PRINT” HAI SCELTO: 

" ; Z 

j £80 

PRINTCHRSC 147) : FUR CA-0 TO 


x$ 
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Matematica 
a 9030 

a cura di Àkruuuidro dr Simonc 

15204 Divisioni con N decimali 

{ Jr.u ilei limici delle calcolatrici tascabili, più 0 meno 
potenti che siano, è senza dubbio queliti della precisio- 
ne multipla, Pei alcuni calcoli spesso non bastano le IO 
o 13 cifre significative, ed a volte ne occorrono ben 
dì più. 

lì problema non è di difficile soluzione quando ss 
tratta di addizioni o di sottrazioni* perchè in tal caso 
basta scomporre il numero in più parti (di 7 o K cifre 
ciascuna) ed eseguire I operazione blocco per blocco, 
tenendo conto degli eventuali riponi; in seguito si ri- 
comporrà La cifra, proma per essere utilizzata. 

Analogamente, per la moltiplicazione, spesso basta 
effettuare operazioni parziali, cifra per cifra, con I ausi- 
lio della calcolatrice, e poi effettuare le somme, natural- 
mente tenendo conto della significativi Là della cifra: un 
po', insomma. come per una moltiplicazione fatta “a 
mano". 

Ma ni discorsosi complica quando si parla di divisio- 
ni in muli (precisione, perche per ogni decimale in pili 
Ea mole di calcoli da svolgere non è indifferente. l d ec- 
co iE nostro calcolatore venirci incontro per risolvere il 
problema: niente di più semplice, per lui! 

Scherzi a parte, 1 ! programma presentalo permette di 
effettuare divisioni con li n numero di decimali limitato 
dalla sola capacità di macchina nel trattare le stri righe: 
tenendo conto della presenza di eventuali segni, della 
parie intera e del punto decimale, di solito è bene non 
superare ì 2. SO decimali. Si (ratta, ad ogni buon conto, di 
una precisione dì lutto rispetto. 

La "chiamata” alia subroutine 152IK3 avviene molto 
semplicemente passando come parametri 1 ! divìdendo 
(in X0), il divisore (in Mì) ed il numero dì decimali desi- 
derato ti 11 WO). Il risultato sarà espresso in lorina di 
stringa ( X I $ ), con le limitazioni di cui parlavamo 
prima. 

Natura 3 me», ? eventuali errori saranno veri beati tem- 
pestiva me me t causeranno un'uscita anticipata dal 
sottoprogramma con la stringa XOS impostata ad 
ERR. 

L'algoritmo utilizzalo è molto spartano, ma provvede 
egregiamente allo scopo: si tratta pari pari del procedi- 
mento che si usa per risolvere manualmente te divisio- 
ni. Ma provate un po’ a vedere chi trova per primo 
il risuliato! 

im PR I NTCHR5Ì C 1 47 3 ” D I MOSTRAI I UQ 

» 

110 PRINT’DIVISIONI CON *N‘ DEC 
IflALI " 



1E0 PRIMI; REM BY SIMDNE BETTOLA 
130 PRINT "IL QUOZIENTE 01 10/0 


3.1)” 

140 PRINT "CON £00 DECIMALI UALE 

» . 

* 1 • r 

150 : 

200 X0"10 ; V0“-“3 » 1 : LU0**200 
£10 GDSUB 15200 
220 PRINTX1S : PRINT : FRINTX0S 
230 : 

9593 END 

15E00 IF Y0-0 OR UJ0> E50 OR m< 1 T 
HEN 15208 

15205 IF INTCX0 3OX0 OR 1NTCY03<> 
Y0 THEN X0-X0*10: Y0*Y0*10:G 
□IO 15210 

15210 U)9~ SGNCX0*Y03 : X0“AE5CX03 : Y 
0-AB5CY03 : UJ0“ INI C X0/ Y0 3 ; X15 

15215 IF W0>255-LEN(X1SO OR UJ0< 1 
THEN 15200 

15E20 FDR W5-1 IO U0 ; X0~ C X0- Y0*AB 
3CW83 3*10: W8-I NIC X0/Y03 
15225 X15-Xl$ + RI0HT5f 5TRSCUJ0) . LEN 
C5TR$CUf83 3-1 3 : NEXT ; GOTO 152 
09 

152BB X0$“' J ERR M : RETURN 
15203 X0S-”DK" : RETURN 
15290 REM X0-D1UIDENDO C NUMERA IDR 
E) 

15E91 REM Y0-D IMI SORE CDENOH INAIO 
RE 3 

15292 REH ùJ0= NUMERO DI DECIMALI R 
CHIESTO 

15293 REM XlSì-R 1 5ULTATQ DIUISIQNE 
15293 REM NOME : DIUIS IONE MULTI PRE 

CI SI ONE 
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15300 Semplificazione di frazioni 

Siamo tornati sui banchi dì scuola, e la maestra ci 
chiama alla lavagna per semplificare una frazione... 
No. niente di tutto questo, ma il programma può dare 
una mano in casi disperati. 

Il problema ricorrente, quando si utilizzano calcola- 
trici per i compiti di scuola, è che il risultato viene e- 
spresso direttamente in notazione decimale con una 
sfilza di cifre dopo la virgola. Il calcolatore può venire 
iti aiuto, ma sforni natamente, con la precisione a no- 
stra disposizione, il C ommodore 64 non riuscirebbe 
nel nostro intento. 

A volte basta semplificare astruse frazioni per render- 
si conto che un determinato calcolo c ben più semplice 
di quanto non si credesse a prima vista l d in questo il 
programmino di queste pagine é veramente formidabi- 
le. In menche non si dica siamo in grado di semplifica- 
re una frazione, di conoscere i valori per cui è stata sem- 
plificata e perfino i passaggi intermedi. 

La tecnica utilizzata per ricavare i termini della sem- 
plificazione è certamente brutale, ma funziona allo 
scopo: non era certo il caso di fare i raffinati a discapito 
della velocità. 

In XI va posto il numeratore ed in VI il denominatore 
della frazione da semplificare, variabili in cui sarà an- 
che riportato il risultato finale. La variabile XOè invece 
un fiag, nel senso che. se è impostato ad uno, la subrou- 
tine effettua ìa stampa dei termini intermedi, mentre se 
è uguale a zero, il programma terminerà direttamente 
con il risultato. 

100 PR INTCHRS C 147 } "DIMOSTRAI IUO 

110 FRINT”5Ef1PLI FI GAZ IONE DI FR 
A3 1 0N I " 

120 PRIMI: REM BY S 1 MONE BETTOLA 
130 PRIMI ”5EMPL I FICA LA FRAZION 
ECRUSd 15/600 ” 

140 PRIMI “E NE UI5UAL I ZZA I TER 
MINI INTERMEDI” 

150 : 

200 X0-l:Xl-15:Yl-600 
210 60SUB 15300 
220 PRINTX1; M /";Y1 
230 : 

3939 END 

15300 IF Yl-0 OR X0<0 OR X0>1 THE 
N 15308 

1S305 UI0-2: Wl-1 ; IF X1/Y1-1NTCX1/Y 
1) THEN X1*X1/Y1 ; Yl“l : GOTO 
15303 

15310 UIB-X1/U0-INTCX1/W05 : W3-Y1/U) 
0-INTCY1/UJ05 : IF UJ2-0 AND UJ3 
-0 THEN 15320 


15315 UI0-W0+W1 :U1-2;Q0T0 15325 
15320 Xl-Xl/L‘0: Y1-Y1/W0; IF X0-1 T 
HEN PR I NTU0 , XI ; ” / " ; Y1 
15325 IF UJ0> XI OR U0>Y1 THEN 1538 
3 

15330 GOTO 15310 
15338 X0S--EPR”; RETURN 
15309 X0*®”OK": RETURN 

15330 REM X 1 -NUMERATORE 

15331 REM Y1 *DENOn I NATQRE 

15398 REM XO^FLASC 1 “STAMPA TERM1N 
I INTERMEDI: 0* NESSUNA 5TAM 
PAI 

15393 REM NOME: SEMPLIFICAZIONI 


15400 Conversioni tra basi qualsiasi 

Quante volte vi è capitalo di convertire un mi mero da 
base 11 a base 7? Probabilmente mai! 

b bene chiarire che cosa significai! Termine Tn base 
N si traila di un raggnippa mento di simboli numerici 
che hanno solamente 7 valori (compreso lo zero) inve- 
ce dei dieci o cui siamo abituati. In base 7 dopo il 6 vie- 
ne immediatamente IO (che si legge "uno /ero" e non 
"dieci' 1 ), che però, in base IO, vale sempre 7. 

Anche se in apparenza il discorso sembra un po' con- 
torto e senza dubbio complicato, tentiamo di capire co- 
me funziona la faccenda. 

Supponiamo di appartenere ad una strana tribù di 
spazi ab che ha solo? dita (!). Provando ad elencare sul- 
le vostre dita i numeri possibili, avrete II, I. 2, 3.4, 5. b e 
poi...? Dovreste riprendere da l> a patto di considerare 
un valore di riporto, che si chiamerà "seti in a" ( invece di 
decina) e poi ancore la "settantina' 1 (per gli umani cen- 
tinaia) e via di seguito. 

Naturalmente il discorso è campato in aria, anche 
perché sarebbe difficile pensare ad esseri con una ma- 
no da quattro dita e l’altra da tre! 

Comunque è bene osservare che non a caso f Homo 
Sapiens conia in base 1 fi ed ha per l'appunto IO ditata è 
il contrario 1 ...). 

Ma allontani a moci da disquisizioni di ordine antro- 
pologico per analizza re più concretamente il problema 
dal punto di vista matematico. 

Sul nostro computer una POKE può avere come ar- 
gomento un valore massimo di 255 e il motivo è da re- 
perirsi nei fatto che il microprocessore tratta 8 bit. Che 
cosa c entra questo fatto con il 255 ? Utilizzando il pro- 
gramma in questione, si converte da base binaria (cheè 
quella del calcolatore) una serie di otto T' (%- 1 1 1 1 il 1 1 ) 
in base dieci (che poi è la nostra). Fer i curiosom si può 
anche tentare di convertire in base 16, ina a voi la 
sorpresa. 

Relativamente al programma, sono da sottolineare 
alcuni punti. Innanzitutto* per basì superiori a dieci, sì 
ricorre alle lettere dell'alfabeto inglese* e quindi dopo la 
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15500 Logaritmi in base qualsiasi 


"Pvi sarà la "T. Ovviamente la massima base possibile 
sarà 37, corrispondente alla ,l Z". Appositi controlli 
consentono di dimensionarli a seconda delia base uti- 
lizzata, mentre per mutivi facilmente intuibili i valori i- 
niziali e finali saranno contenuti in stringhe. 

Per evitare problemi strani, è possibile utilizzare solo 
numeri positivi, dal momento che la notazione in com- 
plemento a due crea non pochi problemi e non è di fa- 
cile comprensione, 

100 PR I NTCHRSt 147 ) "DIMOSTRAI IU0 

1X0 FRINÌ "CDNUERS i on i ira basi 
QUALSIASI " 

120 FRINÌ: REM BY SI MONE BETTOLA 

130 PR INT"t ROSI 190 A7C RUOFF! IN 
BASE lì" 

140 PR I NT "E * UGUALE r IN BASE 7, 

A" 

150 ; 

200 Xl-11 : Y1-7;X1$“"190A7" 

210 GOSUB 15400 

220 FRINIVI® 

230 : 

SS 99 END 

15400 U0-0:IF Xl< 2 DR Yl<2 OR Xl> 
37 OR Yl> 37 THEN 1S4BB 
15405 IF LENC X19S >> INTC LOGC 1 , 7E3S ) 
/ LUE C X 1 1 D - 1 THEN 1540S 
15410 FQR US“LENCX1$) IO 1 SIEP - 
l;Wl-ASCCniD5CXl$,UIS, 13): IF 
Ul>64 THEN Wl~Ui-7 
15415 Ul-(Jl-46:IF UJ1>-X1 THEN 154 
BS 

15420 W0-W0+U1*X1TCL£NCXX$}~W9) ; N 
EXT 

15425 Yl$- 11 ” ; WQ" INTC LOG CW0 1 /LOG t Y 
im:FQR UI3-0 TO WB: W1“UJ0^!N 
TCUJ0/Y1 >*Y1 

15430 b»-INTCW0)/Yl: IF Wl>9 THEN 
Wl-Uil+7 

15435 U1-W1+4B: Y1S-CHRSCW1 D+Y15 : N 
EXT: GOTO 15409 

15490 X0S- 1- ERR": RETURN 
154B9 X0$" , 'QX” : RETURN 
154S0 REM Xl-BASE INIZIALE 

15491 REM Yi*BA5E UOLUTA 

15492 REM X1S-UAL0RE DA CQNUERTIR 
E 

15493 REM Y1S-UAL0RE NELLA NUDUA 
BASE 

1549S REM NUME : CONVERSIONE TRA B 
ASI 


Questa brevissima routine sarà certamente utile a tut- 
ti coloro che desiderano realizzare un buon program- 
ma di risoluzione di equazioni o di studio di funzioni. 

Calcola il ioga ritmo di un numero in una base qual' 
siasi, a pano che numero e base rispettino il campo di e- 
sìstenza dei logaritmi stessi, altrimenti si otterrà un 
X0$*"ERR" 

L’argomento del logaritmo, memorizzato in X0, do- 
vrà essere positivo e non nullo; la base del logaritmo Sa- 
rà memorizzata in YOe dovrà essere un numero positi- 
vo, non nullo e diverso da uno. Entrambi dovranno es- 
sere numeri reali non necessariamente interi. 

Il risultato del logaritmo, d valore cioè a cui bisogne- 
rebbe devare la base per ottenere come risultato l'argo- 
mento del logaritmo, verrà restituito in XI e potrà assu- 
mere un qualsiasi valore reale anche negativo o 
nullo. 

Il programma fa uso di una delle principali proprietà 
dei logaritmi. Chi c particolarmente interessato, potrà 
approfondire largo mento su un qualsiasi testo di alge* 
bra per le scuole superiori. 

Per dò che riguarda un utilizzo piu computeristico 
della routine, è interessante notare che il logaritmo di 
un numero intero 3n una base qualsiasi addizionato ad 
uno, corrisponde esattamente al numero di cifre che 
occorrono per rappresentare quel numero nel sistema 
numerico che ha per base la base del logaritmo 
(Help!). 

Ricorriamo ad un esempio (in base IO); 

Log 10000 = 4 

10000 è appunto formato da S {4+ 1) cifre. Questa pro- 
prietà risulta molto utile quando occorre convertire un 
numero da una base numerica ad un'altra, cosa molto 
frequente nel campo dei computer. 

100 P R I NTCH m C 1 47 V 0 1 MOSTRAI I UD 

n 

110 PRI NT "LOGORI IMI IN ERSE QUR 
L5 I PS I ” 

IBS FRINÌ: REM BY SILUI0 CPLLEGA 
RI 

130 PR INT "IL LOGPRIinO DI GS536 
IN ERSE BE’” 

140 : 

200 X0-65536: Y0-2 

S10 GGSUB 15500 

250 FRINTX1 

230 : 

3392 END 

15500 IF Y0<-0 OR Y0-1 OR X0<“0 T 
HEN 15580 

15510 X1-LOBCX03/LQBCY0J 
15520 GOTO 15SG3 
15588 X0$-”ERR'‘: RETURN 
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15509 XO^-^OK" : RETURN 
15590 REM X0 : ARGOMENTO DEL LDGAR 
ITMQ 

15590 REM Y0: BASE DEL LOGARITMO 
15594 REM XI: RISULTATO DEL LOGAR 
ITMQ 

15599 REM NOME: LOGARITMI IN BASE 

N 

15600 Conversione di coordinate 

Oggi sì usa molto spesso la rappresentazione di dati 
sotto forma grafica come si può notare, tra l'altro, leg^ 
gcndo le pagine finanziarie dei quotidiani. Questo per- 
chè ì grafici riescono a fornire molto più facilmente Ti* 
dea delle differenze e dei nessi fra t dati che rappre- 
sentano. 

La prima rappresentazione grafica realizzata è quel* 
la che fa riferimento ad un plano al quale appartengo- 
no i punti che rappresentano i dati. 

Vi sono due modi per indicare un punto del piano. Il 
primo è il sistema di coordinate cartesiane (dal nome 
del loro inventore Descartes) nel quale il piano è carat- 
terizzato da due assi ortogonali (cartesiani a neh 'essi) 
che si incrociano in un punto chiamato origine degli 
assì. 

Le coordinate del punto sono date dalle proiezioni 
del punto stesso sugli assi. 

Il secondo sistema è chiamato di coordinate polari ed 
è costituito da un’origine e da una semiretta che, par- 
tendo dal l'origine, si dirige verso la destra dì un osser- 
vatore che guardi perpendicolarmente il piano. In que- 
sto un punto è identificato dalla lunghezza del segmen- 
to che congiunge il punto con l'origine e dalfangolo 
compreso tra quest'ultimo e la semiretta di riferimen- 
to, 

E ‘ da notare che. in tale rappresentazione, un punto 
può essere indicato da più valori dell'angolo, tutti sfa- 
sati di un giro (2* pigreco) rispetto al precedente. 

Di solito, però, si utilizzano i valori compresi tra 0 a 
pigmeo (per angoli misurati in senso antiorario) e i va- 
lori da f) a -pigreco (per gli angoli misurati in senso 
ora n o) . 

La routine proposta è in grado di effettuare la conver- 
sione da coordinate cartesiane a polari, e viceversa. 


Le variabili da definire prima di chiamare" la routi- 
ne sono: 

X9-0 per converti m da cartesiane a polari. 

P9= 1 per convertire da polari a cartesiane. 

?C0 contiene ìl valore delfasctssa se la conversione è da 
cartesiane a polari, altrimenti rappresenta la lunghez- 
za del segmento. 

Y0 contiene il valore dell ordinata, nel pnmo caso e 
l'ampiezza dell angolo nel secondo, 


Le variabili possono assumere qualunque valore reale 
tenendo conto che I unica limitazione è imposta dal 
range numerico del computer. 


100 PRINTCHRSC147) "DIMOSTRAI I UO 

*i 

110 PRI NT "C0NUER5 I ONE DA COORDI 
NATE CARTESIANE A" 

120 PR1NT "POLARI E UICEUERSA" 
130 PRINT : REH BY SILO IO CALLEGA 
RI 

140 PRINT”R“£3" , ”0“CPI D/2” 

150 PRINT 
160 : 

200 X0-23iY0-ir/2;XS*=l 
210 GOSUB 15600 
220 PRI NT”X- "XI , “Y" H Y1 
230 ; 

3539 END 

15600 1F X9<>0 AND X9<>1 THEN 15G 
B8 

15610 IF X3-1 THEN 15650 
15620 IF X0-0 THEN X1-ABSCY0);Y1- 
SGNCY0)*ir/2: GOTO 15689 
15630 IF Y0-0 AND X0<0 THEN Xl-AB 
S( X0 ) ; Yl-ff: GOTO 156B9 
15640 X1-SQRCX0*X0+Y0«Y0) : Yl-ATNC 
Y0/X0 ) : GOTO 156B9 
15650 X1-X0*CQSCY0) : Y1 “X0*SIN< Y01 
: GOTO 1S5B9 

156B8 X0$-"ERR” : RETURN 
156B3 X0$~"OK”: RETURN 
15630 REM X0.Y0: UALORI DELLE COQ 
RDINATE INIZIALI 

15692 REM X9-1: CONUERSIONE PDLAR 
I-> CARTESIANE 

15694 REM X9=0 : CONUERSIONE CARTE 
SI ANE-> POLARI 

15696 REM XI, Yl: COORDINATE RI SUL 
TANTI 

15639 REM NOME: CONUERSIONE COORO 
INATE 
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C 64 

Ed è subito Sprite! 


Qualche routine per la gestione degli 
sprite che verrà sicuramente apprezzata 
dagli appassionati del Simon '$ Basic 


éi S. Bettola e S,t allegali 


Definizione sprite 

(21261/21473) 

Finalmente c disponibile a nche ne] 
Basic 2.1 ì una funzione per definire 
gli spille che molti avranno già avuto 
modo di utilizzare sul famoso Si- 
mon s Basic: niente pii; complicati 
calcoli per convertire un disegno ut 
dal] comprensibili al computer* ma 
solo righe Basic Ut semplice gestione 

La routine di queste pagine permet- 
te intatti di definire lo spole inseren- 
do direttamente all'interno di una 
stringa i punti che (ormeranno la 
figura. 

Ad ogni punto colorato dov ni corri 
spandere un asterisco (il segno co- 
munemente usato per ta moltiplica- 
zione) mentre qualsiasi altro caratte- 
re* spazio compreso, corrisponderà 
ad uno spazio vuoto. 


Abbiamo parlato di un.) stringa* 
ma in realtà si traila di un gruppo & 
21 siringhe tutte* però* con lo sie>so 
nome ed una lunghezza di 24 ca ratte 
n ciascuna: uno spnte misura ap- 
punto 24x21 pixel 

Per utilizzare correità mente Li ioti 
tire bisogna tenere presente che 

* il nome della strìnga deve essere fomiauj 
da due lettere e non da una lettera e un un 
mero (andranno benissimo ARSÌ, f DS. 
LFS h ma non A 15 oppure D7%), 

* u^ni nome di stringa dovrà essere ul ih zza- 
to esclusivamente per definire il proprio 
sprite e non potrà essere ri ut ili //alo in altre 
parti del programma o per altri spirile 

* le 21 stringhe contenenti il divegrm do- 
vranno trovarvi su linee di program m* con- 
secutive, non dovrà cioè essere presente al 
cuna istruzione tra due o piu di esse 


* ciascuna siringa dovrà essere tun^a 24 ca 
rati tri ed essere la sola istruzione della li- 
nea Basic di prò Riamili a, non dovrà essere 
pr credula da altre istruzioni nè dall’asse- 
^nazione I t i 

Se una sola di queste norme non 
veiru rispettata la routine potrebbe 
segnalare un errore (Syntav oppure 
1 ilegai Qua mi L) 

Olire al nome della stringa conte- 
nente t dati* occorrerà passare ' alla 
mutine l'indirizzo della locazione di 
partenza del blocco iti cui memori/ 
/are i dati 

N.J5. Non importa se vengono prima 
definite le stringhe o chiamata la rou- 
tine. Qucs fui urna provvedere infatti 
a ricercare all interno del program- 
ma la prinid riga dei dati utili 

Potete qusndi sistemare i disegni in 
coda al programma come fareste sti- 
li temente con normali istruzioni 
DATA 


1000 FRI NTCHRSS f 147 ) "QUÉSTA RDUTI 
NE CONSENTE DI DEFINIRE UNO 
SPRITE 

1010 PR I NT "D I SEGNANDOLO DIRETTA 
ENTE ALLO INTERNO DI UNA 
SIRINGA DEL BASIC ♦ " j 

1030 PRINT' 1 ALLA ROUTINE DEUONO 
ESSERE COMUNICATI IL NOME D 
ELLA 11 ; 

1030 PRINT^STRINGA E L'INDIRIZZO 
DDUE MEMORIZZARE I DATI." 

1040 RETURN 

1050 DATA 033 , 253 ,174,035 ,015, 17 
7 , 144, 115, 133,351 

10E0 DATA 033 * 115, 000 ,033,019, 17 


7, 144 , 105 , 133,353 
1070 DATA 033 ,115, 000 ,301,036,30 
0,033,033, 115,000 
1000 DATA 033,353, 174,033, 13B , 17 
3,033,347,103,165 
1050 DATA 031 , 133,095, 165 , 043 , 13 
3,353,165,044, 133 
1100 DATA 354, 160,000, 177,253, 13 
3,057,200, 177,253 
1110 DATA 240,050.133,096,200,20 
0,300 , 177,353, 157 
1130 DATA 251,308,028,300,177,25 
3,137,352,209,021 
1130 DATA 200,177,253,201,036,20 
0, 014,200 r 177 , 253 


Commodore Computc f Club 72 


ENCICLOPEDIA L.M. 


1140 DATA 501, 176,500, 059, 500, 17 
7,553,501,034,540 

1150 DATA 043 , 165,037, 133,253, 1B 
5 , 09B ,133, 254 , 054 

1160 DATA 144,135,165,033,508,00 
1,036,165,014,044 

1170 DATA 165,055,044,165,011.07 
6,055.164,165,014 

11BB DATA 160,005.177,553.133,05 
7,500 , 177,553,133 

1130 DATA 056,076,055,164,165,03 
3,540,536,165,054 

1500 DATA 500,177,553,540,553,50 
1,034,540,555,501 

1510 DATA 045,540,003,054,144,00 
1,056,036, 105,036 

1550 DATA 101,030, 100, 505, 50B, 53 
0,500, 17“ , 553, 540 

1530 DATA 503,501,034,506,133,16 
0,005,165, 100,000 

1540 DATA 145 , 050, 136, 01E, 54B , 05 
4,165.050,105,003 

1550 DATA 133,050,163,000.101,05 
1, 133,051 ,136,033 

1560 DATA 054,144,144,-1,58467 


100 

110 

150 

130 

140 

150 

160 

170 

180 

130 

500 

510 

550 

530 

540 

550 

560 

570 

5BB 

530 

300 

310 

350 

330 

340 

350 

360 

370 

380 

330 

400 


JP 

Pi 

li 

P> 

** 

ii 


Ji 


JP 


JP 


REM DEMO DEFINIZIONE SFRITE 
X-E1ES1 

REM INDIRIZZO SUGGERITO SU CCC 
ABS 
AB® 

AB® 

AB® 

AB® 

AB® 

AB® 

AB® 

AB® 

AB® 

AB® 

AB®- " 

AB®-” 

AB®“” 

AB®-" 

AB®-” 

AB® 

AB® 

AB® 

AB® 

AB® 


********** 

■i * i- « P t !• '■ 

************ 

« * * * * * 

****** * ******* 

4 t * * 

, **“*AAAAAA***** , 
****************** 

****************** 

******* ******* 

fi « ■ * 

****************** 

****************** 

**************** 

************* 

n 

****** * * * » * * 

■ <1 

** 


* * * * * * 

i ■ 


* * 
* * 

I 

* * 


******** 




” * * * 

jj 


14 11 


* # 4 » 


** 


* * 


******* 

» 


li 

PP 

11 

» 

IJ 

JJ 

IJ 

1» 

IP 

11 

■ 1 
IJ 
I J 

JJ 

JP 

JJ 

» 


tt 

II 


SYSX , AB® , 03B 

FOKE E040 ( 13 : BOXE 53E69 t l 
POKE 53£4B f 100: PDKE S3E49.100 
PDKE 53EB7.1 

PR I NTCHRSC 147 3 "QUESTO E * UNO” 
PR I NT ”SPP I TE DEFINITO TRAMITE” 
FRI NT "UNA STRINGA BASIC" 



Sprite tool 
(21474/21839) 

Come c certamente noto a Culti, il 
Commodore 64 ha possibilità grafi- 
che di indubbio pregio, tra cui La ge- 
stionecontemporanea di 8 sprite, Ma 
è anche vero che per gesti re Le anima- 
zioni dobbiamo fare ricorso ad un 
numero considerevole di istruzioni 
POR E, con argomenti che vanno cal- 
colati dì volta in volta e..., beh, non 
tutti riusciamo a pensare in binario! 

Ed ecco il Linguaggio macchina ve- 
nirci incontro amichevolmente, con- 
sentendo la realizzazione di un tool 
kit completo per la gestione degli 
sprite. 

Ma, purtroppo, anche il Linguag- 
gio Macchina ha i suoi limiti, che. nel 
nostro caso, consìstono in un gruppo 


di ben 366 codici utilizzati per creare 
fu ri lì ty di queste pagine, lina volta 
digitata, però, la routine diventerà in- 
dispensabile per animare i vostri gio- 
chi, rendendoli sempre piu avvincen- 
ti e divertenti, 

Per ciò che riguarda il programma, 
ce da dire che per renderlo rilocabik 
non è stato possibile utilizzare su- 
broutine, costringendoci a ripetere 
parecchie volte gli stessi gruppi di 
istruzioni, 

Chi ha una conoscenza approfon- 
dita del L.M, non incontrerà certo 
difficoltà a ridurre la mole del pro- 
gramma, sacrificandone, però, la 
rilccabilità. 

Il rollo gruppo degli argomenti del- 
la SYS andrà separato sempre e solo 
da una virgola e dovrà sempre essere 
riportato integrai niente non è possi- 


bile tralasciare alcun dato, anche se 
non interessa. Gli argomenti» da in- 
dicare nell ordine, sono: 

- \unwro della aprite {da ft * 7) 

- Sua atthiziont 1 (tìn/ofTJ (1/0) 

Se si sceglie di disattivare uno apri- 
te, ma solo in questo caso, si possono, 
anzi, si devono tralasciare i rimanen- 
ti parametri: 

- t oordinutTa X (da 0 n 512) 

- Coordinata Y (da 0 a 255) 

- Espansione X [o n/off) (1/0) 

- Espansione Y |an/ofi] (1/0) 

* M idrico! or [on/oftl (1/0) 
-Trasparenza fon/oli] (I/O) 

- Blocco {.da 0 a 255) 

Il blocco di memoria da cui traggo- 
no informazioni gli sprite è relativo 
al blocco principale del circuito VIC. 


74 Commodore Computer Club 


ENCICLOPEDIA L.M. 


che é m grado di esplorare solo 1(> 
Kbvtedi memoria per volta. La loca- 
zione a partire dalla quale verrà mio 
memorizzali i dati sarà data da: 


IjOCì/^Vìc* 1 63 K4+ Blocco* 64 


Normalmente il VK c posizionato 
sul blocco zero, dunque La formula si 
riduce a: 

1 <iea7. = MiH - ct>*fr4 


Per approfondire in dettaglio la ge- 
siione delie anima/ io ni* rimandia- 
mo al NJ5 di Commodore Compu- 
ter Club {"Tutto sugli Sprite 'f 
C ome si può ampiamente dedurre 
dal programma di mostrati vo, gli ar- 
gomenti possono essere costituiti an- 
che da variabili, che è conveniente 
chiamare con nomi che possano ri- 
cordare il significato degli argomen- 
ti. da specificare solo una volta e poi 
da modificare a propri*) piacimento, 
secondo le velleità della vostra sbri- 
gliata fantasia * 


1000 PRlNTCWRSi 147 ’-SPRITE TtlQl ■' 

1001 PRINT' l T2 DQUNJSVS XXXXX , Pfi 
RAME! FU (SEPARARE CON OJRGD 
LE TUTTI SONO NECESSARI j ,+ 

1002 PRIMI "[ DOWNlNUflERO t0- 7 ) H 

1003 PPI NT "5PP ITE fltJ/DFf 

1004 FRINÌ H ‘ COLO RE <0-15}'* 

1005 RIUNÌ -COORa INAIA X tG-5121" 

1006 PRIMI "COORDINALA Y £0-2555 " 
1001 FftlWT "MULTI COLO R ON/OFF £1/ 

tó i *' 

1008 FRI NT "TRASPARENZA QjSj/DFF CI 

/©)" 

1003 PR I NT " ELDCCD £0-255)" 

1099 RETURN 

1100 DAIfi 035 ,253, 174.032,130.17 
3,035,547.103,165 

ino DATA 050.501,000.015,043,13 
3,551.. 165,051 , 50B 
1150 DATA 037,159.001,166,551.54 
0,004,310 . 505,530 
H 30 DATA 552 . 133 , 563 . 373 , 559 , 13 
3,554,035,553, 174 
1140 DATA 035 , 13B r 1 73 , Ó35 . 547 , 10 
3, 165.051 ,500,000 
liso DATA 165,050,540,007.501,00 
1 ,540. 014,076.075 
1160 DATA nB, 165.354,045,081,50 
U, 141 „ 051.509,076 
1170 DATA 346,168,033,353.174,03 
5, 130. 173.033,547 
1180 DATA 163,169,030.501,016.01 
5.557,166,021 ,50B 
1190 DATA 233,166,551,157.039.30 
0 035, 353 T 174,035 
1500 DATA 139,1^3,035,247, 183,16 
S.55I , 010, 170, 134 


1510 DATA 555, IBS. 020. 157,000,20 
S, 1SS. 351. 540, 006 
1550 DATA 30] .301 ,540.013,506.18 
B, 165,554,045 . 016 
1530 DATA 200,141,016,806,084.14 
4,000, 155.253, 013 
1540 DATA 01 G* 208 , 141 , BIS . 500 , 03 
5.353.174.038. 136 
1250 DATA 173,035,347,163,166.02 
1,209,156,165,020 
1560 DATA 166,252,157.001.206,03 
5 « 553, 174.035. 138 
1570 DATA 1 73 , 032 . 247 ,183, 155,02 
1,209.009. 165,050 
1280 DATA 540.007.501 ,001,240,01 

4.076.072 . 170. 165 

1230 DATA 354*045,029,200,141,0? 

9,500.024 . 144.039 
I30O DATA 165*253.013,089,200,14 

L t 029. 300, 032*253 
1310 DATA 174,032.136,173,035,24 
7, 103, 165,021 ,208 
1320 DATA 551,165.020,240, 006.50 
1 ,001 , 240 .013* 509 
1330 DATA ?m 165.554, 045, 053.20 
9,141 .023,503,024 
1340 DATA 144*000. 165.253*013,08 
3, 308,141 ,033,509 
1350 DATA 032*553,174,032,139.17 

3. 032.247. 193.165 

1360 DATA 051 ,.209, 179 . 165, 050,24 
0,006.501,001 .240 
1370 DATA 013,506. 169, 166, 854.04 
6,058.508, 141 , 050 
1390 DAI A 200,024 „ 144, 009* 165.25 
3,013. 029.200, 14 1 
1330 DATA O80 , 200,032,263* 174 .03 
2. 13B. 173,032,247 
1400 DATA 193* 165,021, 309, 137. 16 
5,02©, 240 ,017,201 
1410 DATA 001*240,002,209,040,16 
5 <553 ,013, 027 ,200 
1420 DATA 141 *057.206 .024 , 144, 00 
B, 165.254,045,027 
1430 DATA 209,141.027,200,038,85 
3,174, 032 H 139,173 
1440 DATA 032,247,103,166*021.20 

8.016.166.251.165 

1450 DATA 020,157.249,007*165,25 
3,013,021.209*141 
1460 DATA 021,200.096,076,072.17 
6.-1.47441 


10 REM DIMOSTRATI OD DI 5FPITE 
TGOL 

100 X-21474;REM INDIRIZZO SUGOE 
RITO SU COMMODORE COMPUTER 
CLUB 

11® PRlNlCMRSf 147) : POH 1-1 TD 1 
0: FH I NT*'[ DOUNJ " ; :NEXT; PRIMI 
"Commodore 64" 

120 C¥-l30:8L-13;NU-0:nU-0!lS“0 
: EX-0' EY-0 

13© FDR |-0 IO 63 : PQXE SL*64*I* 
255 i NEXT 

140 CO- INI C RNDC 01* 16 J 

150 POR CX“C TG 344 5TEP 2 

160 IF CX-1B0 THEN EX'-l-EX = EY- 1 
-EY : T5"l -TS 

170 SY5X , NU* 1 . CO , CX , CY , £X , EY , MU 
. T5 , BL 

190 MEXT : GOTO 140 
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Collisione 

(21840/21919) 

La dinamicità dei giochi per C/64 
che utilizzano gli sprite consiste nel 
fatto che è possibile rilevare eventua- 
li contatti tra le stesse animazioni. 
Ma il compito non è sempre cosi 
semplice rial momento che bisogna, 
anche in questo caso, ricorrere all'i- 
struzione PtìCK. Se poi si desidera 
conoscere io sprite con il quale è av- 
venuta la collisione, bisognerà con- 
sultare un'altra locazione di memo- 
ria e se la gestione avviene in Basic, il 
tutto si svolge con esasperante len- 
tezza. 

Con la routine proposta, invece, sa- 
remo addirittura in possesso di una 
nuova para-istruzione! Avete mai 


sentito parlare di una SYS XXX 
THEN? 

Ebbene, la sintassi è proprio giusta 
(non avete letto male), e per accertar- 
cene potete utilizzare il programma 
dimostrativo, che dissiperà sicura- 
mente ogni dubbio. 

Dopo la parola SYS andranno po- 
sti. separali da virgole, un paio di ar- 
gomenti: il primo determina il nu me- 
ro dello spille da verifica re (da (ia ?); 
iì secondo, invece, determina il tipo 
di collisione che si vuole veri fica re: 
uno (1). se si controlla il testo e zero 
(0) se si guarda la collisione con un 
altro sprite, 

In quest'ultimo caso se due sprite 
vengono in contatto tra loro (uno dei 
due deve essere specificato nell'istru- 
zione) allora, oltre ad avere l'esecu- 


zione delle istruzioni dopo THEN. la 
locazione 2S2 (PEEK(252)] conterrà 
iì valore dell'altra o delle altre anima- 
zioni tra le quali si è \ criticato il con- 
tatto (espresso in notazione binaria). 

L'articolo ‘Tutto sugli Sprite" (OCC 
N.35) c piuttosto soddisfacente per 
chiarire problemi relativi alle colli- 
sioni. ma vale la pena di ricordare 
che il registro che verifica i contatti, 
dopo essere stato letto, automatica- 
mente si cancellerà e resterà a zero li- 
no a quando non varierà la posizione 
di almeno un’animazione, 

1! programma proseguirà regolar- 
mente dopo ì'istruzione THEN se la 
collisione richiesta si è verificata, al- 
trimenti. come in un regolare IF... 
THEN. si passerà immediatamente 
alla successiva riga di programma. 


50 0U$=CHR3> (17) 

100 X=21B40:REM INDIRIZZO SUGGE 
RITO SU COMMODORE COMPUTER 
CLUB 

110 PRINTCHREC 147) DUEDU1E "COLLIS 

IONE SPRITE NERO COL TESTO 

, ** 

150 PR I NTDlilS "COLL I S I ONE SPRITE 
ROSSO COL TESTO : " 

130 PRINTOWS "COLLI SI ONE TRA LE 
DUE SPRITES 

140 PRI NTCHREC 19) : FOR 1=1 TO 10 
: PRINTDUJS ; : NEXT : PRINT TABC5 
) "COMMODORE 64” 

150 FOR 1-0 TO 63 : POKE 035+1,55 
5 ; NEXT 

160 POKE 2040 ,13: POKE 5041, 13: P 
OKE 53263 , 3 : POKE 535B7 , 0 : PO 
KE 532BB.2 

170 POKE 53243, 130: POKE 53243,1 
30; POKE 53251,130 
1B0 FOR 1-0 10 255 STEP 4:11-25 
5-1 

190 POKE 53246,1: POKE 53250,11: 
PRINTCHRSC 19) ; 

200 SYSX ,0,1 THEN PRINT TABC36) 
□WS ; DWS “S I ” : GOTO 220 
210 PRINT TABC3620U1S; 0W$”N0” 

220 SYSX, 1,1 THEN PRINT TABI 36) 
□WS "SI *’ : GOTO 240 
230 PRINT T AB C 36 ) DUI® " NO “ 

240 SYSX, 0,0 THEN PRINT TABC36) 
DW$”5I ” : GOTO 260 
250 PRINT T ABC 36) DUE "NO” 


2B0 FOR K = 1 TO 200 : NEXTK : NEXT : G 
OTO 1B0 

1000 PRINTCHRSC 147) "UERIFICA COL 
LISIONI ” 

1001 FRINT"C2 DOUIN2SY5 XXXXX, CP 
ARAMETRI) THEN” 

1002 FRI NT ”C DOWN] NUMERO SPRITE C 
0-7 ) ” 

1003 PRINT "5PRI TE/TESTO C0,1)” 

1004 PR I NT ”C DOWN 3 I PARAMETRI UAN 
NO SEPARATI CON UIRGGLA. TU 
TU SONO NECESSARI” 

1005 PRINT "CD DUINI ESEGUE ISTRUZIO 
NE DOPO 'THEN 1 SE" 

1006 PRINT "UER I F I CA COLLISIONE” 

1099 RETURN 

1100 DATA 032,253,174,032,138,17 
3,032,247,183,165 

1110 DATA 021,206,027,165,020,20 

1.008.016.051 . 133 

1120 DATA 251,032,253,174,032,13 
9, 173,032,247,183 
1130 DATA 165,021,208,006,165,02 
0,201 , 002,048,003 
1140 DATA 076,072,178,170,163,00 
1 , 164,251,240,004 
1150 DATA 010, 136, 20B, 262, 133 , 25 

1 . 183.030.208.133 

1160 DATA 252, 037, 251, 240, 00B, 06 

3.252.133.252.168 

1170 DATA 001 , 20B, 002, 133, 252, 13 

3.057.076.043.169 
1180 DATA -1,10255 
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Routine di pause 
(21920/21962) 

Questa brevissima mutine in Un- 
gunggh* macchina non fa altro che 
so» pendere I esecuzione del prò 
fiamma per il (empii indicato (in de- 
cimi di secondo). 

Alcuni si chiederanno che utilità 
abbia una routine di tal genere quan- 
di si può semplicemente utilizzare 
un cielo hor-.JMexi. Ebbene, di van- 


taggi ve ne sono ben due: 

* è possibile interrompe re la pausa 
impostata premendo un qual siasi ta- 
sto. e questa e la caratteristica meno 
imporrante. 

* la caratteristica notevole del micro- 
programma presentato è rappresen- 
tata ila Ila precisione della pausa: in- 
fatti quest ulti ma. olire ad essere in- 
dicata in decimi di secondo, può va- 
riare ila PIO" a t»5535/ Ih" (quasi do- 


ro e gode ili una precisione molto e- 
3 cima soprattutto su tempi medio- 
lunghi: provate a cronometrarla: con 
una impostazione di 1(1 secondi Ter- 
rore è dì 1/ IO”: ne deriva un errore 
percentuale dello 0.017% 

Potrete quindi usare la routine per 
regolare un orologio di un program- 
ma Basic e. perché no?, con Ee oppor- 
tune modifiche inserirla all'interno 
di un'altra routine in linguaggio mac- 
china che visualizzi un orologio 


1000 PRINTCHRSC 147) "QUESTA ROUTI 
NE GENERA UNA PAUSA 01 UN" 
1010 PR I NT "NUMERO UQLUTO DI DECI 
PII DI SECONDO, LA" 

1020 PR 1 NT "PAUSA PUD ' ESSERE INI 
ERRDTTA PREMENDO" 

1030 PR I NT "UN TASTO QUALSIASI” 
1040 RETURN 

1050 DATA 032,253,174,032*130*17 
3,032,247*183,032 
1060 DATA 220,255,200,028*160*03 
7*032,179*230,234 
1070 DATA 234*136,200,240,160,00 


2*136*200, 253*130 
1000 DATA 020* 20B* 232* 166, 021 , 24 
0,005, 190,021 ,024 „ 

1030 DATO 134, £23, 096, -1 , 633E 

10 REM DEMO ROUTINE DI PAUSE 
£0 X“51 9P0 : REM INDI RI 220 SUGGE 
RITO SU CCC 

30 PRINT '*[ CLEAR 3 QUESTA E ' UNA 
PAUSA DI 5 SECONDI, PER” 

40 FRI NT '‘INTERROMPERLA PUOI PR 
EMERE UN TASTO . ” 

50 SYSX , 50 
60 FRI NT “FINE" 


Mappa della memoria dì 

NUOVO SISTEMA 

iKlcnciJ delle routine pubbli etile) 

Il primo valore indica l irulm/^i di par- 
ie n/u |t.'L incidente con hi SYS da un [co- 
nici n lenire, il \cconi1<>. l'ultima loca/ ru- 
ne unitene me Tallirmi dato- 
li numero Ira p.irt-ntcsi. invece, si riferi- 
sce -il numero di l .€ " C in cui sonn 
viale pubblicale le inuline 

IIKHHI/20III I <.oTo i aleidiln 15 1| 

2(M1 1/20049 GoSub f alcolato |31 ì 
I0O5O/2OI 2K Inlerp \S (51) 
20129/10100 Cambia colore (51) 

10 IH 1 )/ 202 45 Servii l anidre (51 1 
2fl246/2t)3<l2 ( ancella curati. (5 li 
20503/10445 GitSuh Jjihcl (52) 
2ll440/2ll5b2 Cola laibel (32) 
211565/20506 Rrvlure tinca (35) 
20507/20 1*8 2 Disk Inni |331 
20610/20775 Dirpcinr) (53) 
20776/2085* Serali Mag (54) 

21)859/209 14 Dedli (34) 

2(10 15/20952 F)oki- (34> 

20953/ 2 Ito* Decim/Ccsariec (35) 

21 1117/21 t5b I nuilc eurMir (55 ì 
lì 157/21260 tlccp |35| 

(Le mutine dr i|uts|u numeri} 
MiniMjpem dì Sinuine BvmivUi 
e Silvio i \tl lega ni 
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